From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40853 Path: main.gmane.org!not-for-mail From: Josh Huber Newsgroups: gmane.emacs.gnus.general Subject: new topic parameter: subscribe-level Date: Thu, 13 Dec 2001 23:10:00 -0500 Organization: Mind your own business, you silly arthur king! Sender: owner-ding@hpc.uh.edu Message-ID: <87zo4mh27b.fsf@paradoxical.net> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035176340 3071 80.91.224.250 (21 Oct 2002 04:59:00 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:59:00 +0000 (UTC) Return-Path: Original-Received: (qmail 14670 invoked from network); 14 Dec 2001 03:58:06 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 14 Dec 2001 03:58:06 -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 16EjTt-0005dw-00; Thu, 13 Dec 2001 21:57:53 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 13 Dec 2001 21:57:41 -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 VAA16033 for ; Thu, 13 Dec 2001 21:57:28 -0600 (CST) Original-Received: (qmail 14641 invoked by alias); 14 Dec 2001 03:57:34 -0000 Original-Received: (qmail 14636 invoked from network); 14 Dec 2001 03:57:34 -0000 Original-Received: from quimby.gnus.org (HELO quimby2.netfonds.no) (195.204.10.66) by gnus.org with SMTP; 14 Dec 2001 03:57:34 -0000 Original-Received: from news by quimby2.netfonds.no with local (Exim 3.12 #1 (Debian)) id 16EjbG-0001WG-00 for ; Fri, 14 Dec 2001 05:05:30 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 81 Original-NNTP-Posting-Host: h000094c5efff.ne.mediaone.net Original-X-Trace: quimby2.netfonds.no 1008302730 5843 65.96.250.128 (14 Dec 2001 04:05:30 GMT) Original-X-Complaints-To: usenet@quimby2.netfonds.no Original-NNTP-Posting-Date: 14 Dec 2001 04:05:30 GMT X-Go-Away: or I shall taunt you a second time! X-PGP-KeyID: 6B21489A X-Fingerprint: 61F0 6138 BE7B FEBF A223 E9D1 BFE1 2065 6B21 489A X-Request-PGP: finger:huber@db.debian.org Mail-Copies-To: nobody User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.4 (Civil Service, powerpc-debian-linux) Cancel-Lock: sha1:mAMx/BSItqKsrzwnAypMyiY34vk= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:40853 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40853 I've committed this. 2001-12-13 Josh Huber * gnus-cus.el (gnus-extra-topic-parameters): added topic parameter subscribe-level * gnus-topic.el (gnus-subscribe-topics): use it. Side note: Anyone else using XEmacs here? To get it to save the ChangeLog properly, I had to C-x C-m c iso-2022-7bit RET C-x C-s to save the file in the proper coding. The buffer-local variable didn't seem to do the trick for me. Does anyone have any scripts for handling Gnus development? Such as, something for automating commits & commit comments, posting to gnus.ding, etc? Index: lisp/gnus-cus.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-cus.el,v retrieving revision 6.14 diff -u -r6.14 gnus-cus.el --- lisp/gnus-cus.el 2001/11/06 15:06:21 6.14 +++ lisp/gnus-cus.el 2001/12/14 03:10:44 @@ -242,7 +242,12 @@ If `gnus-subscribe-newsgroup-method' or `gnus-subscribe-options-newsgroup-method' is set to `gnus-subscribe-topics', new groups that matches this regexp will -automatically be subscribed to this topic")) +automatically be subscribed to this topic") + (subscribe-level (integer :tag "Subscribe Level" :value 1) "\ +If this topic parameter is set, when new groups are subscribed +automatically under this topic (via the `subscribe' topic parameter) +assign this level to the group, rather than the default level +set in `gnus-level-default-subscribed'")) "Alist of topic parameters that are not also group parameters. Each entry has the form (NAME TYPE DOC), where NAME is the parameter Index: lisp/gnus-topic.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-topic.el,v retrieving revision 6.16 diff -u -r6.16 gnus-topic.el --- lisp/gnus-topic.el 2001/11/27 19:15:09 6.16 +++ lisp/gnus-topic.el 2001/12/14 03:10:46 @@ -1690,6 +1690,12 @@ (gnus-subscribe-alphabetically newsgroup) ;; Add the group to the topic. (nconc (assoc topic gnus-topic-alist) (list newsgroup)) + ;; if this topic specifies a default level, use it + (let ((subscribe-level (cdr (assq 'subscribe-level + (gnus-topic-parameters topic))))) + (when subscribe-level + (gnus-group-change-level newsgroup subscribe-level + gnus-level-default-subscribed))) (throw 'end t))) nil))) Index: texi/gnus.texi =================================================================== RCS file: /usr/local/cvsroot/gnus/texi/gnus.texi,v retrieving revision 6.192 diff -u -r6.192 gnus.texi --- texi/gnus.texi 2001/12/12 16:26:38 6.192 +++ texi/gnus.texi 2001/12/14 03:11:11 @@ -3776,6 +3776,11 @@ value should be a regexp to match the groups that should go in that topic. +@item subscribe-level +When subscribing new groups by topic (see the @code{subscribe} parameter), +the group will be subscribed with the level specified in the +@code{subscribe-level} instead of @code{gnus-level-default-subscribed}. + @end table Group parameters (of course) override topic parameters, and topic -- Josh Huber