From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44566 Path: main.gmane.org!not-for-mail From: Florian Weimer Newsgroups: gmane.emacs.gnus.general Subject: Add "subscribed" group parameter Date: Wed, 01 May 2002 16:55:19 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: <878z736hpk.fsf@deneb.enyo.de> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1020265094 27930 127.0.0.1 (1 May 2002 14:58:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 1 May 2002 14:58:14 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 172vYc-0007GN-00 for ; Wed, 01 May 2002 16:58:14 +0200 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 172vWO-0000m2-00; Wed, 01 May 2002 09:55:56 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 01 May 2002 09:56:10 -0500 (CDT) 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 JAA07945 for ; Wed, 1 May 2002 09:55:57 -0500 (CDT) Original-Received: (qmail 6105 invoked by alias); 1 May 2002 14:55:33 -0000 Original-Received: (qmail 6100 invoked from network); 1 May 2002 14:55:32 -0000 Original-Received: from cygnus-ext.enyo.de (HELO mail.enyo.de) (212.9.189.162) by gnus.org with SMTP; 1 May 2002 14:55:32 -0000 Original-Received: from [212.9.189.171] (helo=deneb.enyo.de) by mail.enyo.de with esmtp (Exim 3.34 #2) id 172vVs-0007sv-00 for ding@gnus.org; Wed, 01 May 2002 16:55:24 +0200 Original-Received: from fw by deneb.enyo.de with local (Exim 3.34 #4) id 172vVn-0000jJ-00 for ding@gnus.org; Wed, 01 May 2002 16:55:19 +0200 Original-To: ding@gnus.org Mail-Followup-To: ding@gnus.org Original-Lines: 75 User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.2 (i686-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:44566 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44566 The patch below makes 'subscribed' a proper group parameter. Comments? 2002-05-01 Florian Weimer * 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))))