From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/31144 Path: main.gmane.org!not-for-mail From: Didier Verna Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] select-method widget Date: 22 May 2000 15:16:28 +0200 Sender: owner-ding@hpc.uh.edu 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 1035167589 12395 80.91.224.250 (21 Oct 2002 02:33:09 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:33:09 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by mailhost.sclp.com (Postfix) with ESMTP id 3D0D8D051F for ; Mon, 22 May 2000 09:21:12 -0400 (EDT) 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 IAB01501; Mon, 22 May 2000 08:19:13 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 22 May 2000 08:18:39 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id IAA23192 for ; Mon, 22 May 2000 08:18:26 -0500 (CDT) Original-Received: from hermes.epita.fr (hermes.epita.fr [194.98.116.10]) by mailhost.sclp.com (Postfix) with ESMTP id 08597D051F for ; Mon, 22 May 2000 09:18:01 -0400 (EDT) Original-Received: from goa.lrde.epita.fr (mail@goa.lrde.epita.fr [10.227.5.2]) by hermes.epita.fr id PAA23014 for EPITA Paris France Mon, 22 May 2000 15:18:10 GMT Original-Received: from uzeb.lrde.epita.fr ([10.227.5.53] ident=mail) by goa.lrde.epita.fr with esmtp (Exim 3.12 #1 (Debian)) id 12ts4X-000133-00 for ; Mon, 22 May 2000 15:16:41 +0200 Original-Received: from didier by uzeb.lrde.epita.fr with local (Exim 3.12 #1 (Debian)) id 12ts4K-0004a7-00 for ; Mon, 22 May 2000 15:16:28 +0200 Original-To: Gnus Beta Testers X-Attribution: dv 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.el (gnus-redefine-select-method-widget): new function, call it once. * gnus-start.el (gnus-declare-backend): use it. Index: lisp/gnus.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.el,v retrieving revision 5.136 diff -u -w -r5.136 gnus.el --- lisp/gnus.el 2000/05/06 21:43:18 5.136 +++ lisp/gnus.el 2000/05/22 13:14:13 @@ -1288,6 +1288,9 @@ (const :format "%v " virtual) (const respool))))) +(defun gnus-redefine-select-method-widget () + "Recomputes the select-method widget based on the value of +`gnus-valid-select-methods'." (define-widget 'gnus-select-method 'list "Widget for entering a select method." :value '(nntp "") @@ -1302,8 +1305,11 @@ :inline t (list :format "%v" variable - (sexp :tag "Value"))))) + (sexp :tag "Value")))) + )) +(gnus-redefine-select-method-widget) + (defcustom gnus-updated-mode-lines '(group article summary tree) "List of buffers that should update their mode lines. The list may contain the symbols `group', `article', `tree' and 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 5.53 diff -u -w -r5.53 gnus-start.el --- lisp/gnus-start.el 2000/05/17 04:18:53 5.53 +++ lisp/gnus-start.el 2000/05/22 13:14:18 @@ -2651,7 +2651,8 @@ "Declare backend NAME with ABILITIES as a Gnus backend." (setq gnus-valid-select-methods (nconc gnus-valid-select-methods - (list (apply 'list name abilities))))) + (list (apply 'list name abilities)))) + (gnus-redefine-select-method-widget)) (defun gnus-set-default-directory () "Set the default directory in the current buffer to `gnus-default-direct= ory'. -- / / _ _ Didier Verna http://www.inf.enst.fr/~verna/ - / / - / / /_/ / EPITA / LRDE mailto:didier@lrde.epita.fr /_/ / /_/ / /__ / 14-16 rue Voltaire Tel. +33 (1) 44 08 01 77 94276 Kremlin-Bic=EAtre cedex Fax. +33 (1) 44 08 01 99