From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26753 Path: main.gmane.org!not-for-mail From: Per Abrahamsen Newsgroups: gmane.emacs.gnus.general Subject: The `subscribe' topic parameter Date: 12 Nov 1999 20:05:54 +0100 Organization: The Church of Emacs Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035163903 21075 80.91.224.250 (21 Oct 2002 01:31:43 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:31:43 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA05390 for ; Fri, 12 Nov 1999 14:07:15 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB21978; Fri, 12 Nov 1999 13:07:07 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 12 Nov 1999 13:06:43 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA28900 for ; Fri, 12 Nov 1999 13:06:32 -0600 (CST) Original-Received: from sheridan.dina.kvl.dk (sheridan.dina.kvl.dk [130.225.40.227]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA05385 for ; Fri, 12 Nov 1999 14:06:01 -0500 (EST) Original-Received: from feller.dina.kvl.dk (feller.dina.kvl.dk [130.225.40.147]) by sheridan.dina.kvl.dk (8.9.0.Beta5/8.9.0.Beta5) with SMTP id UAA15971; Fri, 12 Nov 1999 20:06:24 +0100 Original-Received: by feller.dina.kvl.dk (SMI-8.6/SMI-SVR4) id UAA29819; Fri, 12 Nov 1999 20:05:54 +0100 Original-To: ding@gnus.org X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM|8MBp/ Original-Lines: 108 User-Agent: Gnus/5.070099 (Pterodactyl Gnus v0.99) Emacs/20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:26753 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26753 I made it customizable. It should probably be mentioned in the Topic Parameters section in the manual. With regard to `gnus-subscribe-topics' I couln't find any documentation of what happens to groups that aren't subscribed by any topics. Eh, I can just commit changes for customize support as I see fit, right? 1999-11-12 Per Abrahamsen * gnus-cus.el (gnus-group-parameters): Changed from `defcustom' to `defconst'. mention that it is both for group and topic parameters. (gnus-extra-topic-parameters): New constant, including `subscribe' parameter. (gnus-extra-group-parameters): New constant. (gnus-group-customize): Use them. Index: gnus-cus.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-cus.el,v retrieving revision 5.14 diff -c -r5.14 gnus-cus.el *** gnus-cus.el 1999/07/09 19:28:51 5.14 --- gnus-cus.el 1999/11/12 19:01:04 *************** *** 56,62 **** ;;; Group Customization: ! (defcustom gnus-group-parameters '((to-address (gnus-email-address :tag "To Address") "\ This will be used when doing followups and posts. --- 56,62 ---- ;;; Group Customization: ! (defconst gnus-group-parameters '((to-address (gnus-email-address :tag "To Address") "\ This will be used when doing followups and posts. *************** *** 238,249 **** gnus-emphasis-highlight-words)))) "highlight regexps. See gnus-emphasis-alist.")) ! "Alist of valid group parameters. Each entry has the form (NAME TYPE DOC), where NAME is the parameter itself (a symbol), TYPE is the parameters type (a sexp widget), and DOC is a documentation string for the parameter.") (defvar gnus-custom-params) (defvar gnus-custom-method) (defvar gnus-custom-group) --- 238,266 ---- gnus-emphasis-highlight-words)))) "highlight regexps. See gnus-emphasis-alist.")) ! "Alist of valid group or topic parameters. Each entry has the form (NAME TYPE DOC), where NAME is the parameter itself (a symbol), TYPE is the parameters type (a sexp widget), and DOC is a documentation string for the parameter.") + (defconst gnus-extra-topic-parameters + '((subscribe (regexp :tag "Subscribe") "\ + If `gnus-subscribe-newsgroup-method' is set to + `gnus-subscribe-topics', new groups that matches this regexp will + automatically be subscribed to this topic")) + "Alist of topic parameters that are not also group parameters. + + Each entry has the form (NAME TYPE DOC), where NAME is the parameter + itself (a symbol), TYPE is the parameters type (a sexp widget), and + DOC is a documentation string for the parameter.") + + (defconst gnus-extra-group-parameters nil + "Alist of group parameters that are not also topic parameters. + + Each entry has the form (NAME TYPE DOC), where NAME is the parameter + itself (a symbol), TYPE is the parameters type (a sexp widget), and + DOC is a documentation string for the parameter.") (defvar gnus-custom-params) (defvar gnus-custom-method) (defvar gnus-custom-group) *************** *** 258,264 **** :doc ,(nth 2 entry) (const :format "" ,(nth 0 entry)) ,(nth 1 entry))) ! gnus-group-parameters))) (unless (or group topic) (error "No group on current line")) (when (and group topic) --- 275,284 ---- :doc ,(nth 2 entry) (const :format "" ,(nth 0 entry)) ,(nth 1 entry))) ! (append gnus-group-parameters ! (if group ! gnus-extra-group-parameters ! gnus-extra-topic-parameters))))) (unless (or group topic) (error "No group on current line")) (when (and group topic)