From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/26756
Path: main.gmane.org!not-for-mail
From: Per Abrahamsen <abraham@dina.kvl.dk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: groups in levels 5-7 won't appear in groups buffer (was: Pterodactyl Gnus v0.98 is released)
Date: 12 Nov 1999 20:25:16 +0100
Organization: The Church of Emacs
Sender: owner-ding@hpc.uh.edu
Message-ID: <rjd7tfwm03.fsf@feller.dina.kvl.dk>
References: <m3r9i4iwik.fsf@quimbies.gnus.org> <rjln8c8ug5.fsf@feller.dina.kvl.dk> <m2u2n0ni2f.fsf@aleph.swift.xxx> <vaf66zf4n7b.fsf@lucy.cs.uni-dortmund.de> <m2n1sry2vp.fsf@aleph.swift.xxx> <vaf3dujunxd.fsf@lucy.cs.uni-dortmund.de> <m21za0q1hc.fsf@aleph.swift.xxx> <eme0x01g.fsf@apl.washington.edu> <m2zowowytf.fsf@aleph.swift.xxx> <r9i0vjbi.fsf@apl.washington.edu> <8080gn$3v7$1@quimby.gnus.org> <m3wvrp676r.fsf@quimbies.gnus.org> <rjwvrnu4el.fsf@feller.dina.kvl.dk> <m3ogcz7mip.fsf@quimbies.gnus.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035163906 21085 80.91.224.250 (21 Oct 2002 01:31:46 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:31:46 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
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 OAA05512
	for <jason@mailhost.sclp.com>; Fri, 12 Nov 1999 14:25:52 -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 NAB26884;
	Fri, 12 Nov 1999 13:25:50 -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:26:07 -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 NAA29096
	for <ding@hpc.uh.edu>; Fri, 12 Nov 1999 13:25:55 -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 OAA05504
	for <ding@gnus.org>; Fri, 12 Nov 1999 14:25:23 -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 UAA16278;
	Fri, 12 Nov 1999 20:25:46 +0100
Original-Received: by feller.dina.kvl.dk (SMI-8.6/SMI-SVR4)
	id UAA00018; Fri, 12 Nov 1999 20:25:16 +0100
Original-To: ding@gnus.org
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
In-Reply-To: Lars Magne Ingebrigtsen's message of "12 Nov 1999 16:33:18 +0100"
Original-Lines: 73
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:26756
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:26756

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Per Abrahamsen <abraham@dina.kvl.dk> writes:
> 
> > In that case, it would probably be a good idea to change them from
> > defcustoms to defconsts.
> > 
> > Do you want a patch? ;-)
> 
> Yes, please.  :-)

1999-11-12  Per Abrahamsen  <abraham@dina.kvl.dk>

	* gnus-start.el (gnus-level-subscribed, gnus-level-unsubscribed,
	gnus-level-zombie, gnus-level-killed): Changed from `defcustom' to
	`defconst'.

Index: gnus-start.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-start.el,v
retrieving revision 5.37
diff -c -r5.37 gnus-start.el
*** gnus-start.el	1999/11/12 07:03:48	5.37
--- gnus-start.el	1999/11/12 19:26:33
***************
*** 141,167 ****
  		 (const some)
  		 (const t)))
  
! (defcustom gnus-level-subscribed 5
!   "*Groups with levels less than or equal to this variable are subscribed."
!   :group 'gnus-group-levels
!   :type 'integer)
  
! (defcustom gnus-level-unsubscribed 7
!   "*Groups with levels less than or equal to this variable are unsubscribed.
  Groups with levels less than `gnus-level-subscribed', which should be
! less than this variable, are subscribed."
!   :group 'gnus-group-levels
!   :type 'integer)
  
! (defcustom gnus-level-zombie 8
!   "*Groups with this level are zombie groups."
!   :group 'gnus-group-levels
!   :type 'integer)
  
! (defcustom gnus-level-killed 9
!   "*Groups with this level are killed."
!   :group 'gnus-group-levels
!   :type 'integer)
  
  (defcustom gnus-level-default-subscribed 3
    "*New subscribed groups will be subscribed at this level."
--- 141,159 ----
  		 (const some)
  		 (const t)))
  
! (defconst gnus-level-subscribed 5
!   "Groups with levels less than or equal to this variable are subscribed.")
  
! (defconst gnus-level-unsubscribed 7
!   "Groups with levels less than or equal to this variable are unsubscribed.
  Groups with levels less than `gnus-level-subscribed', which should be
! less than this variable, are subscribed.")
  
! (defconst gnus-level-zombie 8
!   "Groups with this level are zombie groups.")
  
! (defconst gnus-level-killed 9
!   "Groups with this level are killed.")
  
  (defcustom gnus-level-default-subscribed 3
    "*New subscribed groups will be subscribed at this level."