[patch] gnus-boring-article-headers: to-list and cc-list

[patch] gnus-boring-article-headers: to-list and cc-list

[Vasily Korytov]

[-- Attachment #1.1: Type: text/plain, Size: 228 bytes --]

They do the same, as 'newsgroups, for mailing lists.

Suggested ChangeLog entry:

2003-02-28  Vasily Korytov <deskpot@myrealbox.com>

	* gnus-art.el (gnus-boring-article-headers): New values:
	  'to-list and 'cc-list.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: gnus-art.el.patch --]
[-- Type: text/x-patch, Size: 2130 bytes --]

--- gnus-art.el~	Fri Feb 28 02:14:34 2003
+++ gnus-art.el	Fri Feb 28 21:50:58 2003
@@ -185,6 +185,8 @@
   'empty       Headers with no content.
   'newsgroups  Newsgroup identical to Gnus group.
   'to-address  To identical to To-address.
+  'to-list     To identical to To-list.
+  'cc-list     CC identical to To-list.
   'followup-to Followup-to identical to Newsgroups.
   'reply-to    Reply-to identical to From.
   'date        Date less than four days old.
@@ -193,6 +195,8 @@
   :type '(set (const :tag "Headers with no content." empty)
 	      (const :tag "Newsgroups identical to Gnus group." newsgroups)
 	      (const :tag "To identical to To-address." to-address)
+	      (const :tag "To identical to To-list." to-list)
+	      (const :tag "CC identical to To-list." cc-list)
 	      (const :tag "Followup-to identical to Newsgroups." followup-to)
 	      (const :tag "Reply-to identical to From." reply-to)
 	      (const :tag "Date less than four days old." date)
@@ -1613,6 +1617,32 @@
 			      (nth 1 (mail-extract-address-components to))
 			      to-address)))
 		  (gnus-article-hide-header "to"))))
+	     ((eq elem 'to-list)
+	      (let ((to (message-fetch-field "to"))
+		    (to-list
+		     (gnus-parameter-to-list
+		      (if (boundp 'gnus-newsgroup-name)
+			  gnus-newsgroup-name ""))))
+		(when (and to to-list
+			   (ignore-errors
+			     (gnus-string-equal
+			      ;; only one address in To
+			      (nth 1 (mail-extract-address-components to))
+			      to-list)))
+		  (gnus-article-hide-header "to"))))
+	     ((eq elem 'cc-list)
+	      (let ((cc (message-fetch-field "cc"))
+		    (to-list
+		     (gnus-parameter-to-list
+		      (if (boundp 'gnus-newsgroup-name)
+			  gnus-newsgroup-name ""))))
+		(when (and cc to-list
+			   (ignore-errors
+			     (gnus-string-equal
+			      ;; only one address in CC
+			      (nth 1 (mail-extract-address-components cc))
+			      to-list)))
+		  (gnus-article-hide-header "cc"))))
 	     ((eq elem 'followup-to)
 	      (when (gnus-string-equal
 		     (message-fetch-field "followup-to")

[-- Attachment #1.3: Type: text/plain, Size: 141 bytes --]

-- 
       I accept RFC3156 and RFC1991-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: [patch] gnus-boring-article-headers: to-list and cc-list

[ShengHuo ZHU]

deskpot@myrealbox.com (Vasily Korytov) writes:

> They do the same, as 'newsgroups, for mailing lists.
>
> Suggested ChangeLog entry:
>
> 2003-02-28  Vasily Korytov <deskpot@myrealbox.com>
>
> 	* gnus-art.el (gnus-boring-article-headers): New values:
> 	  'to-list and 'cc-list.

The patch looks fine.  Could you please sign the copyright assignment
so that we can install the patch?  I'll send you the detail in another
email.

Also could you make a patch to the texi file too?

ShengHuo

Re: [patch] gnus-boring-article-headers: to-list and cc-list

[Vasily Korytov]

[-- Attachment #1.1: Type: text/plain, Size: 295 bytes --]

>>>>> "ZSH" == ShengHuo ZHU writes:

 ZSH> The patch looks fine.  Could you please sign the copyright assignment
 ZSH> so that we can install the patch?  I'll send you the detail in another
 ZSH> email.

Sure.

 ZSH> Also could you make a patch to the texi file too?

Here it goes.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: gnus.texi.patch --]
[-- Type: text/x-patch, Size: 624 bytes --]

--- gnus.texi~	Fri Feb 28 21:36:09 2003
+++ gnus.texi	Sat Mar  1 01:59:45 2003
@@ -10538,6 +10538,12 @@
 @item to-address
 Remove the @code{To} header if it only contains the address identical to
 the current groups's @code{to-address} parameter.
+@item to-list
+Remove the @code{To} header if it only contains the address identical to
+the current groups's @code{to-list} parameter.
+@item cc-list
+Remove the @code{CC} header if it only contains the address identical to
+the current groups's @code{to-list} parameter.
 @item date
 Remove the @code{Date} header if the article is less than three days
 old.

[-- Attachment #1.3: Type: text/plain, Size: 141 bytes --]

-- 
       I accept RFC3156 and RFC1991-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]