* Add "subscribed" group parameter
@ 2002-05-01 14:55 Florian Weimer
2002-05-08 16:54 ` Kai Großjohann
0 siblings, 1 reply; 2+ messages in thread
From: Florian Weimer @ 2002-05-01 14:55 UTC (permalink / raw)
The patch below makes 'subscribed' a proper group parameter.
Comments?
2002-05-01 Florian Weimer <fw@deneb.enyo.de>
* gnus.el (subscribed): New group parameter.
(gnus-find-subscribed-addresses): Use it.
--- gnus.el.~6.109.~ Wed May 1 12:24:15 2002
+++ gnus.el Wed May 1 16:54:58 2002
@@ -1552,6 +1552,21 @@
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
:function gnus-group-auto-expirable-p
@@ -2403,7 +2418,7 @@
(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))))
--- gnus.el.~6.109.~ Wed May 1 12:24:15 2002
+++ gnus.el Wed May 1 16:54:58 2002
@@ -1552,6 +1552,21 @@
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
:function gnus-group-auto-expirable-p
@@ -2403,7 +2418,7 @@
(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))))
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Add "subscribed" group parameter
2002-05-01 14:55 Add "subscribed" group parameter Florian Weimer
@ 2002-05-08 16:54 ` Kai Großjohann
0 siblings, 0 replies; 2+ messages in thread
From: Kai Großjohann @ 2002-05-08 16:54 UTC (permalink / raw)
Florian Weimer <fw@deneb.enyo.de> writes:
> The patch below makes 'subscribed' a proper group parameter.
>
> Comments?
Good stuff. Committed.
kai
--
Silence is foo!
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2002-05-08 16:54 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-05-01 14:55 Add "subscribed" group parameter Florian Weimer
2002-05-08 16:54 ` Kai Großjohann
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).