Gnus development mailing list
 help / color / mirror / Atom feed
* The `subscribe' topic parameter
@ 1999-11-12 19:05 Per Abrahamsen
  1999-11-12 19:25 ` Lars Magne Ingebrigtsen
  1999-12-01 13:23 ` Lars Magne Ingebrigtsen
  0 siblings, 2 replies; 4+ messages in thread
From: Per Abrahamsen @ 1999-11-12 19:05 UTC (permalink / raw)


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  <abraham@dina.kvl.dk>

	* 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)


^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: The `subscribe' topic parameter
  1999-11-12 19:05 The `subscribe' topic parameter Per Abrahamsen
@ 1999-11-12 19:25 ` Lars Magne Ingebrigtsen
  1999-11-12 19:33   ` Per Abrahamsen
  1999-12-01 13:23 ` Lars Magne Ingebrigtsen
  1 sibling, 1 reply; 4+ messages in thread
From: Lars Magne Ingebrigtsen @ 1999-11-12 19:25 UTC (permalink / raw)


Per Abrahamsen <abraham@dina.kvl.dk> writes:

> Eh, I can just commit changes for customize support as I see fit,
> right?

Yup.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen


^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: The `subscribe' topic parameter
  1999-11-12 19:25 ` Lars Magne Ingebrigtsen
@ 1999-11-12 19:33   ` Per Abrahamsen
  0 siblings, 0 replies; 4+ messages in thread
From: Per Abrahamsen @ 1999-11-12 19:33 UTC (permalink / raw)


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

> Per Abrahamsen <abraham@dina.kvl.dk> writes:
> 
> > Eh, I can just commit changes for customize support as I see fit,
> > right?
> 
> Yup.  :-)

Ok, I have commited the last three patches.


^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: The `subscribe' topic parameter
  1999-11-12 19:05 The `subscribe' topic parameter Per Abrahamsen
  1999-11-12 19:25 ` Lars Magne Ingebrigtsen
@ 1999-12-01 13:23 ` Lars Magne Ingebrigtsen
  1 sibling, 0 replies; 4+ messages in thread
From: Lars Magne Ingebrigtsen @ 1999-12-01 13:23 UTC (permalink / raw)


Per Abrahamsen <abraham@dina.kvl.dk> writes:

> I made it customizable.  It should probably be mentioned in the Topic
> Parameters section in the manual.

Yup.  Fix in Pterodactyl Gnus v0.99.

> With regard to `gnus-subscribe-topics' I couln't find any
> documentation of what happens to groups that aren't subscribed by any
> topics.

Ditto.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~1999-12-01 13:23 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-11-12 19:05 The `subscribe' topic parameter Per Abrahamsen
1999-11-12 19:25 ` Lars Magne Ingebrigtsen
1999-11-12 19:33   ` Per Abrahamsen
1999-12-01 13:23 ` Lars Magne Ingebrigtsen

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).