gnus-summary-execute-command

gnus-summary-execute-command

[Katsumi Yamaoka]

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

Hi,

I have a suggestion that the command `gnus-summary-execute-command'
should work with the extra headers which is specified in `gnus-extra-
headers' and/or `nnmail-extra-headers', for instance:

(setq gnus-extra-headers '(To Newsgroups)
      nnmail-extra-headers gnus-extra-headers
      gnus-ignored-from-addresses "Katsumi Yamaoka")

It is useful because of some mailing lists have their own
identification only in the To field.  Here is a patch for it:

2001-03-19 05:28:00  Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-kill.el (gnus-execute): Work with the extra headers.
	* gnus-sum.el (gnus-summary-execute-command): Ditto.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: extra-headers.patch --]
[-- Type: text/x-patch, Size: 1823 bytes --]

--- gnus-kill.el~	Sun Oct 29 21:57:13 2000
+++ gnus-kill.el	Mon Mar 19 05:28:00 2001
@@ -641,18 +641,30 @@
 marked as read or ticked are ignored."
   (save-excursion
     (let ((killed-no 0)
-	  function article header)
+	  function article header extras)
       (cond
        ;; Search body.
        ((or (null field)
 	    (string-equal field ""))
 	(setq function nil))
        ;; Get access function of header field.
-       ((fboundp
-	 (setq function
-	       (intern-soft
-		(concat "mail-header-" (downcase field)))))
-	(setq function `(lambda (h) (,function h))))
+       ((cond ((fboundp
+		(setq function
+		      (intern-soft
+		       (concat "mail-header-" (downcase field)))))
+	       (setq function `(lambda (h) (,function h))))
+	      ((when (setq extras
+			   (member (downcase field)
+				   (mapcar (lambda (header)
+					     (downcase (symbol-name header)))
+					   gnus-extra-headers)))
+		 (setq function
+		       `(lambda (h)
+			  (gnus-extra-header
+			   (quote ,(nth (- (length gnus-extra-headers)
+					   (length extras))
+					gnus-extra-headers))
+			   h)))))))
        ;; Signal error.
        (t
 	(error "Unknown header field: \"%s\"" field)))
--- gnus-sum.el~	Thu Mar 15 21:57:38 2001
+++ gnus-sum.el	Mon Mar 19 05:28:00 2001
@@ -7409,9 +7409,11 @@
    (list (let ((completion-ignore-case t))
 	   (completing-read
 	    "Header name: "
-	    (mapcar (lambda (string) (list string))
-		    '("Number" "Subject" "From" "Lines" "Date"
-		      "Message-ID" "Xref" "References" "Body"))
+	    (mapcar (lambda (header) (list (format "%s" header)))
+		    (append
+		     '("Number" "Subject" "From" "Lines" "Date"
+		       "Message-ID" "Xref" "References" "Body")
+		     gnus-extra-headers))
 	    nil 'require-match))
 	 (read-string "Regexp: ")
 	 (read-key-sequence "Command: ")

Re: gnus-summary-execute-command

[ShengHuo ZHU]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> Hi,
> 
> I have a suggestion that the command `gnus-summary-execute-command'
> should work with the extra headers which is specified in `gnus-extra-
> headers' and/or `nnmail-extra-headers', for instance:
> 
> (setq gnus-extra-headers '(To Newsgroups)
>       nnmail-extra-headers gnus-extra-headers
>       gnus-ignored-from-addresses "Katsumi Yamaoka")
> 
> It is useful because of some mailing lists have their own
> identification only in the To field.  Here is a patch for it:
> 
> 2001-03-19 05:28:00  Katsumi Yamaoka <yamaoka@jpl.org>
> 
> 	* gnus-kill.el (gnus-execute): Work with the extra headers.
> 	* gnus-sum.el (gnus-summary-execute-command): Ditto.

Installed. Thanks.

ShengHuo