From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50458 Path: main.gmane.org!not-for-mail From: deskpot@myrealbox.com (Vasily Korytov) Newsgroups: gmane.emacs.gnus.general Subject: [patch] gnus-boring-article-headers: to-list and cc-list Date: Fri, 28 Feb 2003 21:51:46 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: <87smu8utkt.fsf@unix.home> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: main.gmane.org 1046458429 25728 80.91.224.249 (28 Feb 2003 18:53:49 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 28 Feb 2003 18:53:49 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18opdi-0006gS-00 for ; Fri, 28 Feb 2003 19:53:46 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18opdH-0006E5-00; Fri, 28 Feb 2003 12:53:19 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 28 Feb 2003 12:54:18 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id MAA20154 for ; Fri, 28 Feb 2003 12:54:05 -0600 (CST) Original-Received: (qmail 57830 invoked by alias); 28 Feb 2003 18:53:02 -0000 Original-Received: (qmail 57825 invoked from network); 28 Feb 2003 18:53:02 -0000 Original-Received: from ns1.telekom.ru (root@194.190.195.83) by 66.230.238.6 with SMTP; 28 Feb 2003 18:53:02 -0000 Original-Received: from unix.home (h80.37.elnet.msk.ru [195.58.37.80]) by ns1.telekom.ru (8.12.7/8.12.7) with SMTP id h1SIqik9012100 for ; Fri, 28 Feb 2003 21:52:45 +0300 Original-Received: (qmail 5763 invoked from network); 28 Feb 2003 18:56:20 -0000 Original-Received: from localhost (alias@127.0.0.1) by localhost with QMTP; 28 Feb 2003 18:56:20 -0000 Original-Received: (qmail 5694 invoked by uid 1000); 28 Feb 2003 18:51:46 -0000 Original-To: ding@gnus.org X-Attribution: VK Mail-Copies-To: never User-Agent: Gnus/5.090016 (Oort Gnus v0.16) XEmacs/21.4 (Portable Code) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:50458 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50458 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Transfer-Encoding: quoted-printable They do the same, as 'newsgroups, for mailing lists. Suggested ChangeLog entry: 2003-02-28 Vasily Korytov * gnus-art.el (gnus-boring-article-headers): New values: 'to-list and 'cc-list. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-art.el.patch Content-Transfer-Encoding: quoted-printable =2D-- 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") --=-=-= Content-Transfer-Encoding: quoted-printable =2D-=20 I accept RFC3156 and RFC1991-compatible encrypted mail. PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841 --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQE+X6/CoPg1JPzYGEERAnWlAKDbTu1uNpc7WNHpIaag5bX8pCEtlwCg81q6 QwiHwqKNO1V67a7Z57Rmw0Q= =fPlF -----END PGP SIGNATURE----- --==-=-=--