From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39780 Path: main.gmane.org!not-for-mail From: "Matt Armstrong" Newsgroups: gmane.emacs.gnus.general Subject: Re: new Mail-Followup-To patch...please take a look... Date: Wed, 31 Oct 2001 10:28:58 -0700 (MST) Sender: owner-ding@hpc.uh.edu Message-ID: <20011031172858.46B89BD35@squeaker.lickey.com> References: <87wv1m9y6j.fsf@mclinux.com> <87bsixhk7t.fsf@mclinux.com> <877ktj1rq3.fsf@mclinux.com> <2nvggvq5yk.fsf@zsh.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035175436 29754 80.91.224.250 (21 Oct 2002 04:43:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:43:56 +0000 (UTC) Return-Path: Original-Received: (qmail 28062 invoked from network); 31 Oct 2001 17:35:03 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 31 Oct 2001 17:35:03 -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 15yzBf-0000Tr-00; Wed, 31 Oct 2001 11:29:59 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 31 Oct 2001 11:29:37 -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 LAA15965 for ; Wed, 31 Oct 2001 11:29:21 -0600 (CST) Original-Received: (qmail 27905 invoked by alias); 31 Oct 2001 17:29:23 -0000 Original-Received: (qmail 27900 invoked from network); 31 Oct 2001 17:29:23 -0000 Original-Received: from hank.lickey.com (64.81.100.235) by gnus.org with SMTP; 31 Oct 2001 17:29:23 -0000 Original-Received: from squeaker.lickey.com (squeaker.lickey.com [192.168.100.10]) by hank.lickey.com (Postfix) with ESMTP id 88A2BEE30 for ; Wed, 31 Oct 2001 10:29:07 -0700 (MST) Original-Received: from localhost (localhost [127.0.0.1]) by squeaker.lickey.com (Postfix) with ESMTP id C15ABBD4F for ; Wed, 31 Oct 2001 10:29:05 -0700 (MST) Original-Received: by squeaker.lickey.com (Postfix, from userid 1000) id 46B89BD35; Wed, 31 Oct 2001 10:28:58 -0700 (MST) Original-To: ding@gnus.org In-Reply-To: <2nvggvq5yk.fsf@zsh.cs.rochester.edu> (ShengHuo ZHU's message of "Wed, 31 Oct 2001 08:44:51 -0500") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1 (i386-debian-linux-gnu) Mail-Followup-To: ding@gnus.org Original-Lines: 68 X-Delivery-Agent: TMDA v0.39/Python 1.5.2 (linux2) X-Virus-Scanned: by AMaViS snapshot-20010714 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:39780 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39780 --=-=-= ShengHuo ZHU writes: > Josh Huber 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: --=-=-= Content-Disposition: attachment; filename=doc-string-fix.txt Content-Description: A doc string fix patch 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 + + * gnus.el (gnus-find-subscribed-addresses): Doc fix: + not-subscribed -> subscribed. + 2001-10-31 08:00:00 ShengHuo ZHU From: Josh Huber 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))) --=-=-= -- matt --=-=-=--