From: Didier Verna <didier@lrde.epita.fr>
Subject: [PATCH] One more hook
Date: 21 Mar 2001 18:24:40 +0100 [thread overview]
Message-ID: <muxzoef9grq.fsf@uzeb.lrde.epita.fr> (raw)
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
reply other threads:[~2001-03-21 17:24 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=muxzoef9grq.fsf@uzeb.lrde.epita.fr \
--to=didier@lrde.epita.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).