From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/50711 Path: main.gmane.org!not-for-mail From: deskpot@myrealbox.com (Vasily Korytov) Newsgroups: gmane.emacs.gnus.general Subject: [patch] gnus-boring-article-headers: introducing broken-reply-to Date: Sun, 09 Mar 2003 16:07:13 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: <87adg4pu2m.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 1047215091 20464 80.91.224.249 (9 Mar 2003 13:04:51 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 9 Mar 2003 13:04:51 +0000 (UTC) Original-X-From: owner-ding@hpc.uh.edu Sun Mar 09 14:04:49 2003 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 18s0Tw-0005Jm-00 for ; Sun, 09 Mar 2003 14:04:48 +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 18s0Th-0000F7-00; Sun, 09 Mar 2003 07:04:33 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 09 Mar 2003 07:05:33 -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 HAA13851 for ; Sun, 9 Mar 2003 07:05:20 -0600 (CST) Original-Received: (qmail 45253 invoked by alias); 9 Mar 2003 13:04:15 -0000 Original-Received: (qmail 45244 invoked from network); 9 Mar 2003 13:04:15 -0000 Original-Received: from ns1.telekom.ru (root@194.190.198.2) by 66.230.238.6 with SMTP; 9 Mar 2003 13:04:15 -0000 Original-Received: from unix.home (h53.217.elnet.msk.ru [194.190.217.53]) by ns1.telekom.ru (8.12.8/8.12.8) with SMTP id h29D3qON018358 for ; Sun, 9 Mar 2003 16:03:53 +0300 Original-Received: (qmail 1388 invoked from network); 9 Mar 2003 13:08:02 -0000 Original-Received: from localhost (alias@127.0.0.1) by localhost with QMTP; 9 Mar 2003 13:08:02 -0000 Original-Received: (qmail 1362 invoked by uid 1000); 9 Mar 2003 13:07:15 -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:50711 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:50711 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Transfer-Encoding: quoted-printable This removes the Reply-To header on groups, that have (broken-reply-to . t). lisp/ChangeLog 2003-03-09 Vasily Korytov * gnus-art.el (gnus-boring-article-headers): New value, on by default: 'broken-reply-to --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-art.el.patch Content-Transfer-Encoding: quoted-printable Content-Description: source patch =2D-- lisp/gnus-art.el~ Fri Mar 7 10:39:27 2003 +++ lisp/gnus-art.el Sun Mar 9 15:52:15 2003 @@ -178,22 +178,26 @@ :type '(repeat regexp) :group 'gnus-article-hiding) =20 =2D(defcustom gnus-boring-article-headers '(empty followup-to reply-to) +(defcustom gnus-boring-article-headers '(empty broken-reply-to + followup-to reply-to) "Headers that are only to be displayed if they have interesting data. Possible values in this list are: =20 =2D 'empty Headers with no content. =2D 'newsgroups Newsgroup identical to Gnus group. =2D 'to-address To identical to To-address. =2D 'to-list To identical to To-list. =2D 'cc-list CC identical to To-list. =2D 'followup-to Followup-to identical to Newsgroups. =2D 'reply-to Reply-to identical to From. =2D 'date Date less than four days old. =2D 'long-to To and/or Cc longer than 1024 characters. =2D 'many-to Multiple To and/or Cc." + 'empty Headers with no content. + 'newsgroups Newsgroup identical to Gnus group. + 'broken-reply-to Reply-To in groups with (broken-reply-to . t). + '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. + 'long-to To and/or Cc longer than 1024 characters. + 'many-to Multiple To and/or Cc." :type '(set (const :tag "Headers with no content." empty) (const :tag "Newsgroups identical to Gnus group." newsgroups) + (const :tag "Reply-To in groups with (broken-reply-to . t)." + broken-reply-to) (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) @@ -1604,6 +1608,10 @@ gnus-newsgroup-name ""))) (gnus-article-hide-header "newsgroups"))) + ((eq elem 'broken-reply-to) + (if (gnus-group-find-parameter + gnus-newsgroup-name 'broken-reply-to) + (gnus-article-hide-header "reply-to"))) ((eq elem 'to-address) (let ((to (message-fetch-field "to")) (to-address --=-=-= Content-Transfer-Encoding: quoted-printable texi/ChangeLog 2003-03-09 Vasily Korytov * gnus.texi: New value for gnus-boring-article-headers -- 'broken-reply-to --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus.texi.patch Content-Transfer-Encoding: quoted-printable Content-Description: info patch =2D-- texi/gnus.texi~ Fri Mar 7 10:39:30 2003 +++ texi/gnus.texi Sun Mar 9 16:06:00 2003 @@ -10535,6 +10535,8 @@ @item newsgroups Remove the @code{Newsgroups} header if it only contains the current group name. +@item broken-reply-to +Remove the @code{Reply-To} header if the group has (broken-reply-to . t). @item to-address Remove the @code{To} header if it only contains the address identical to the current groups's @code{to-address} parameter. @@ -10553,11 +10555,11 @@ Remove all @code{To} headers if there are more than one. @end table =20 =2DTo include these three elements, you could say something like: +To include these four elements, you could say something like: =20 @lisp (setq gnus-boring-article-headers =2D '(empty followup-to reply-to)) + '(empty broken-reply-to followup-to reply-to)) @end lisp =20 This is also the default value for this variable. --=-=-= Content-Transfer-Encoding: quoted-printable P.S. My copyright assignment process is delayed for some time (which is no way a fault of the FSF people). Hoping, that's OK. If not, don't apply this, but let me know and I'll draw a patch, when everything is done. =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+azyDoPg1JPzYGEERAu8qAJ0e3zJJpsfObLZ18PVWOwjJBgfS4wCeODPR d1EHU0dUlHDNE0orh+CwbZ0= =rIcK -----END PGP SIGNATURE----- --==-=-=--