From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43363 Path: main.gmane.org!not-for-mail From: Nevin Kapur Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] Re: Does Mail-Followup-To generation work? Date: Fri, 01 Mar 2002 11:53:45 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035178469 17219 80.91.224.250 (21 Oct 2002 05:34:29 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 05:34:29 +0000 (UTC) Return-Path: Original-Received: (qmail 25136 invoked from network); 1 Mar 2002 16:54:50 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 1 Mar 2002 16:54:50 -0000 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 16gqII-0001ES-00; Fri, 01 Mar 2002 10:54:06 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 01 Mar 2002 10:54:09 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id KAA06572 for ; Fri, 1 Mar 2002 10:53:56 -0600 (CST) Original-Received: (qmail 25124 invoked by alias); 1 Mar 2002 16:53:48 -0000 Original-Received: (qmail 25119 invoked from network); 1 Mar 2002 16:53:48 -0000 Original-Received: from fermat.mts.jhu.edu (?wUfkHHyRvpRB4QC80yZyewl6+4l/idWq?@128.220.17.18) by gnus.org with SMTP; 1 Mar 2002 16:53:48 -0000 Original-Received: (from nevin@localhost) by fermat.mts.jhu.edu (8.11.6/8.11.6) id g21GrjJ05371; Fri, 1 Mar 2002 11:53:45 -0500 X-Authentication-Warning: fermat.mts.jhu.edu: nevin set sender to nevin@jhu.edu using -f Original-To: ding@gnus.org X-Face: H~?ZI_L2!bGIrH^iC0e8t85[S`lwpP_/-sOvkGnN[\)[S";}xM3[Ib!ljz-80yK9SIf9sz6/DcY?yKUq1=-&XdrLjA^wK1 In-Reply-To: (prj@po.cwru.edu's message of "Fri, 01 Mar 2002 11:20:19 -0500") Mail-Followup-To: ding@gnus.org Original-Lines: 80 User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.4 (Common Lisp, i686-pc-linux) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:43363 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43363 prj@po.cwru.edu (Paul Jarc) writes: > Nevin Kapur wrote: >> Following the directions in the manual, I've set the group parameter >> of my ding group as >> >> (to-address . "Ding ") >> (to-list . "Ding ") >> (subscribed . t) > > You also need this: > (setq message-subscribed-address-functions '(gnus-find-subscribed-addresses)) > Either the Group Parameters node of the Gnus manual or the docstring > for gnus-find-subscribed-addresses probably ought to link to the > Mailing Lists node of the Message manual. (I'd do it if I knew how.) Please consider the following patch which makes the MFT behavior works as advertised in the manual. cvs server: Diffing lisp Index: lisp/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 6.1267 diff -u -r6.1267 ChangeLog --- lisp/ChangeLog 2002/03/01 14:01:25 6.1267 +++ lisp/ChangeLog 2002/03/01 16:53:12 @@ -1,3 +1,11 @@ +2002-03-01 Nevin Kapur + + * gnus.el (gnus-find-subscribed-addresses): Strip quoted names + from to-address and to-list. + + * message.el (message-subscribed-address-functions): Give a + default value of '(gnus-find-subscribed-addresses). + 2002-03-01 ShengHuo ZHU * mm-view.el (mm-view-pkcs7-verify): New function. A bogus Index: lisp/gnus.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v retrieving revision 6.105 diff -u -r6.105 gnus.el --- lisp/gnus.el 2002/02/27 17:03:59 6.105 +++ lisp/gnus.el 2002/03/01 16:53:18 @@ -2403,8 +2403,9 @@ (dolist (entry (cdr gnus-newsrc-alist)) (setq group (car entry)) (when (gnus-group-find-parameter group 'subscribed) - (setq address (or (gnus-group-fast-parameter group 'to-address) - (gnus-group-fast-parameter group 'to-list))) + (setq address (mail-strip-quoted-names + (or (gnus-group-fast-parameter group 'to-address) + (gnus-group-fast-parameter group 'to-list)))) (when address (push address addresses)))) (list (mapconcat 'regexp-quote addresses "\\|")))) Index: lisp/message.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v retrieving revision 6.208 diff -u -r6.208 message.el --- lisp/message.el 2002/02/21 15:42:28 6.208 +++ lisp/message.el 2002/03/01 16:53:30 @@ -445,7 +445,8 @@ (const use) (const ask))) -(defcustom message-subscribed-address-functions nil +(defcustom message-subscribed-address-functions + '(gnus-find-subscribed-addresses) "*Specifies functions for determining list subscription. If nil, do not attempt to determine list subscribtion with functions. If non-nil, this variable contains a list of functions which return -- Nevin