(subscribed): New group parameter.

(gnus-find-subscribed-addresses): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88d48f1..94b9ef7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-05-08  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+       From Florian Weimer <fw@deneb.enyo.de>.
+       
+       * gnus.el (subscribed): New group parameter.
+       (gnus-find-subscribed-addresses): Use it.
+
 2002-05-08  Josh Huber  <huber@alum.wpi.edu>
 
        * mml-sec.el (mml-signencrypt-style-alist): Rename.  Also, changed

diff --git a/lisp/gnus.el b/lisp/gnus.el
index b4fa1fe..01e2aa2 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1551,6 +1551,21 @@ present in a news group, you'll get mail group semantics when doing
 The gnus-group-split mail splitting mechanism will behave as if this
 address was listed in gnus-group-split Addresses (see below).")
 
+(gnus-define-group-parameter
+ subscribed
+ :type bool
+ :function-document
+ "Return GROUP's subscription status."
+ :variable-document
+ "*Groups which are automatically considered subscribed."
+ :parameter-type '(const :tag "Subscribed" t)
+ :parameter-document "\
+Gnus assumed that you are subscribed to the To/List address.
+
+When constructing a list of subscribed groups using
+`gnus-find-subscribed-addresses', Gnus includes the To address given
+above, or the list address (if the To address has not been set).")
+
 (gnus-define-group-parameter
  auto-expire
  :type bool
@@ -2403,7 +2418,7 @@ with a `subscribed' parameter."
   (let (group address addresses)
     (dolist (entry (cdr gnus-newsrc-alist))
       (setq group (car entry))
-      (when (gnus-group-find-parameter group 'subscribed)
+      (when (gnus-parameter-subscribed group)
        (setq address (mail-strip-quoted-names
                       (or (gnus-group-fast-parameter group 'to-address)
                           (gnus-group-fast-parameter group 'to-list))))