[PATCH] One more hook

[PATCH] One more hook

[Didier Verna]

		Dear folks,

	I'm going to apply the following patch to the CVS archive.


lisp/ChangeLog addition:

2001-03-21  Didier Verna  <didier@lrde.epita.fr>

	* gnus-start.el (gnus-subscribe-newsgroup-hooks): New.
	* gnus-start.el (gnus-subscribe-newsgroup): use it.


Gnus Patch (runsocks cvs -q diff -w lisp/gnus-start.el):

Index: lisp/gnus-start.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-start.el,v
retrieving revision 6.10
diff -u -w -r6.10 gnus-start.el
--- lisp/gnus-start.el	2001/02/20 21:15:18	6.10
+++ lisp/gnus-start.el	2001/03/21 17:10:38
@@ -262,6 +262,12 @@
 		function
 		(repeat function)))
 
+(defcustom gnus-subscribe-newsgroup-hooks nil
+  "*Hooks run after you subscribe to a new group. The hooks will be called
+with new group's name as argument."
+  :group 'gnus-group-new
+  :type 'hook)
+
 (defcustom gnus-subscribe-options-newsgroup-method
   'gnus-subscribe-alphabetically
   "*Function(s) called to subscribe newsgroups mentioned on \"options -n\" lines.
@@ -575,6 +581,7 @@
      gnus-level-killed (gnus-gethash (or next "dummy.group")
 				     gnus-newsrc-hashtb))
     (gnus-message 5 "Subscribe newsgroup: %s" newsgroup)
+    (run-hook-with-args 'gnus-subscribe-newsgroup-hooks newsgroup)
     t))
 
 (defun gnus-read-active-file-p ()

-- 
    /     /   _   _       Didier Verna       http://www.lrde.epita.fr/~didier
 - / / - / / /_/ /        EPITA / LRDE         mailto:didier@lrde.epita.fr
/_/ / /_/ / /__ /      14-16 rue Voltaire        Tel. +33 (1) 53 14 59 47
                   94276 Kremlin-Bicêtre cedex   Fax. +33 (1) 44 08 01 99