patch: 5.6.38 gnus-uu, new regexp marking commands

[<jari.aalto@poboxes.com> (Jari Aalto+list.ding)]

[-- Attachment #1: Type: text/plain, Size: 830 bytes --]


    Hi,

    A day ago I subscribed to handfull of new mailing lists and when I
    was away last night my procmail recipes sorted them to wrong folders.
    so I had to move lot of mail from group to another.

    The first command that come into my mind was 

	gnus-uu-mark-by-regexp

    But it only matched subjects. I assumed it would match the 
    visible Summary line, but it didn't :-). There was nothing in common
    in the subject lines that come from eg liserv XXX. However If I
    matched against From field, then I could tag all the messages
    coming from particular list and move then all to right group.

    Here is the new functions that do that: They un/mark articles
    that match From field. The patch is against 5.6.38. Feel free
    to move the new keybinds to somewhere more appropriate.

    jari



[-- Attachment #2: Type: text/plain, Size: 639 bytes --]

Sat Aug 22 17:56:04 1998  Jari Aalto  <jari.aalto@poboxes.com>

	* gnus-uu.el ((gnus-uu-mark-map "P" gnus-summary-mark-map)):
	Added commands
	"f" gnus-uu-mark-by-from-regexp
	"F" gnus-uu-unmark-by-from-regexp
	(gnus-uu-mark-by-from-regexp): New user function.
	(gnus-uu-find-articles-matching): Added anew arg `data-flag'
	Which may have other uses in the future. Curretly if flag
	is set to non-nil, the matching list is generated by looking
	at `from' fields. If flag is nil, then list is generated
	by looking at `subject'.
	(gnus-uu-find-articles-matching): variable changes
	`list-of-subjects' --> `list' and `subject' --> `string'


[-- Attachment #3: gnus-uu.el.diff --]
[-- Type: text/plain, Size: 3108 bytes --]

Prereq: 1.1

===================================================================
RCS file: RCS/gnus-uu.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- 1.1	1998/08/22 14:53:26
+++ 1.2	1998/08/22 15:01:27
@@ -356,6 +356,8 @@
   "g" gnus-uu-unmark-region
   "R" gnus-uu-mark-by-regexp
   "G" gnus-uu-unmark-by-regexp
+  "f" gnus-uu-mark-by-from-regexp
+  "F" gnus-uu-unmark-by-from-regexp
   "t" gnus-uu-mark-thread
   "T" gnus-uu-unmark-thread
   "a" gnus-uu-mark-all
@@ -578,6 +580,25 @@
   (interactive (list (read-from-minibuffer "Mark (regexp): ")))
   (gnus-uu-mark-by-regexp regexp t))
 
+
+(defun gnus-uu-mark-by-from-regexp (regexp &optional unmark)
+  "Ask for a regular expression and set the process mark on all articles that match `From'."
+  (interactive (list (read-from-minibuffer "Mark (From regexp): ")))
+  (let ((articles (gnus-uu-find-articles-matching regexp nil nil 'from)))
+    (while articles
+      (if unmark
+	  (gnus-summary-remove-process-mark (pop articles))
+	(gnus-summary-set-process-mark (pop articles))))
+    (message ""))
+  (gnus-summary-position-point))
+
+
+(defun gnus-uu-unmark-by-from-regexp (regexp &optional unmark)
+  "Ask for a regular expression and remove the process mark on all articles that match `from' ."
+  (interactive (list (read-from-minibuffer "Mark (regexp): ")))
+  (gnus-uu-mark-by-from-regexp regexp t))
+
+
 (defun gnus-uu-mark-series ()
   "Mark the current series with the process mark."
   (interactive)
@@ -1081,14 +1102,19 @@
   (string< (car l1) (car l2)))
 
 (defun gnus-uu-find-articles-matching
-  (&optional subject only-unread do-not-translate)
+  (&optional subject only-unread do-not-translate data-flag)
   ;; Finds all articles that matches the regexp SUBJECT.  If it is
   ;; nil, the current article name will be used.  If ONLY-UNREAD is
   ;; non-nil, only unread articles are chosen.  If DO-NOT-TRANSLATE is
   ;; non-nil, article names are not equalized before sorting.
+  ;;
+  ;; If DATA-FLAG is non-nil, match `from' gnus-data instead of `subject'
   (let ((subject (or subject
 		     (gnus-uu-reginize-string (gnus-summary-article-subject))))
-	list-of-subjects)
+	list
+	from
+	string
+	)
     (save-excursion
       (if (not subject)
 	  ()
@@ -1104,16 +1130,21 @@
 			gnus-unread-mark)
 		     (= mark gnus-ticked-mark)
 		     (= mark gnus-dormant-mark))
-		 (setq subj (mail-header-subject (gnus-data-header d)))
-		 (string-match subject subj)
-		 (push (cons subj (gnus-data-number d))
-		       list-of-subjects))))
+		 (cond
+		  ((null data-flag)
+		   (setq string (mail-header-subject (gnus-data-header d)))
+		   (string-match subject string))
+		  (t
+		   (setq string (mail-header-from (gnus-data-header d)))
+		   (string-match subject string)))
+		 (push (cons string (gnus-data-number d))
+		       list))))
 
 	;; Expand numbers, sort, and return the list of article
 	;; numbers.
 	(mapcar (lambda (sub) (cdr sub))
 		(sort (gnus-uu-expand-numbers
-		       list-of-subjects
+		       list
 		       (not do-not-translate))
 		      'gnus-uu-string<))))))