From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35434 Path: main.gmane.org!not-for-mail From: Didier Verna Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] One more hook Date: 21 Mar 2001 18:24:40 +0100 Sender: Didier Verna Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035171179 3053 80.91.224.250 (21 Oct 2002 03:32:59 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:32:59 +0000 (UTC) Return-Path: Original-Received: (qmail 6960 invoked by alias); 21 Mar 2001 17:13:08 -0000 Original-Received: (qmail 6955 invoked from network); 21 Mar 2001 17:13:06 -0000 Original-Received: from hermes.epita.fr (163.5.255.10) by gnus.org with SMTP; 21 Mar 2001 17:13:05 -0000 Original-Received: from goa.lrde.epita.fr (mail@goa.lrde.epita.fr [10.223.13.2]) by hermes.epita.fr id SAA16224 for EPITA Paris France Wed, 21 Mar 2001 18:12:46 GMT Original-Received: from debian.lrde.epita.fr ([10.223.13.53] helo=uzeb.lrde.epita.fr) by goa.lrde.epita.fr with esmtp (Exim 3.12 #1 (Debian)) id 14fmLi-0003o9-00 for ; Wed, 21 Mar 2001 18:24:42 +0100 Original-Received: from didier by uzeb.lrde.epita.fr with local (Exim 3.22 #1 (Debian)) id 14fmLh-0003yh-00 for ; Wed, 21 Mar 2001 18:24:41 +0100 Original-To: Gnus Beta Testers X-Attribution: drv X-Url: http://www.infres.enst.fr/~verna X-Web: http://www.infres.enst.fr/~verna X-Home-Page: http://www.infres.enst.fr/~verna X-Face: |j}\)O|k##MrRz#VK$Jy=0r=3Qc,,a/Tr6*JQbE73dy17]2YcmW$9Z&H21e}#~#pgc>dn(is5Bv1l!{1re+Q9suKIOUmOqZs2>QMxHlR;;}kaGYA@HR3D C6 X-Face: 6o|eiKqaHN.ANh8HXDzntcWUOCg\]RsOd.ctvm~*y}Y^R&*a+Co,\s#=HWsw3x$b_n2kJ#g (7u?J^@^xP)f,jUF|0Z'J:|G/bMA5O12*b,7`-Q`=pKsCRIpso07.Y>YB2H{7`?u&yh;C_ZtLHfj * 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 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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))) =20 +(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)) =20 (defun gnus-read-active-file-p () --=20 / / _ _ Didier Verna http://www.lrde.epita.fr/~didi= er - / / - / / /_/ / EPITA / LRDE mailto:didier@lrde.epita.fr /_/ / /_/ / /__ / 14-16 rue Voltaire Tel. +33 (1) 53 14 59 47 94276 Kremlin-Bic=EAtre cedex Fax. +33 (1) 44 08 01 99