Re: new Mail-Followup-To patch...please take a look...

["Matt Armstrong" <matt+dated+1007141338.75716a@lickey.com>]

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

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Josh Huber <huber@alum.wpi.edu> writes:
>
>> Here's my current version.  I use the following in my .gnus.el:
>>
>> (setq gnus-parameters
>>       '(("^mail\\.lists\\." (subscribed . t))))
>>
>> (setq message-subscribed-address-functions
>>       '(gnus-find-subscribed-addresses))
>>
>> but I do understand that people would like everything to be
>> automatic.  I've got so much stuff in my .gnus.el already that this
>> (small) addition isn't a big deal to me, but getting it for free
>> automatically would be nice.
>
> Installed.

Way cool.  One small doc string fix:


[-- Attachment #2: A doc string fix patch --]
[-- Type: text/plain, Size: 1137 bytes --]

Index: ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 6.811
diff -u -r6.811 ChangeLog
--- ChangeLog	2001/10/31 13:55:26	6.811
+++ ChangeLog	2001/10/31 17:37:36
@@ -1,3 +1,8 @@
+2001-10-31  Matt Armstrong  <matt@lickey.com>
+
+	* gnus.el (gnus-find-subscribed-addresses): Doc fix:
+	not-subscribed -> subscribed.
+
 2001-10-31 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
         From: Josh Huber <huber@alum.wpi.edu>
 
Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 6.63
diff -u -r6.63 gnus.el
--- gnus.el	2001/10/31 13:55:26	6.63
+++ gnus.el	2001/10/31 17:37:42
@@ -2316,7 +2316,7 @@
 (defun gnus-find-subscribed-addresses ()
   "Return a regexp matching the addresses of all subscribed mail groups.
 It consists of the `to-address' or `to-list' parameter of all groups
-with a nil `not-subscribed' parameter."
+with a `subscribed' parameter."
   (let ((addresses))
     (mapc (lambda (entry)
 	    (let ((group (car entry)))

[-- Attachment #3: Type: text/plain, Size: 10 bytes --]


-- 
matt