From: Didier Verna <didier@lrde.epita.fr>
Cc: ding@gnus.org
Subject: Re: [PATCH] select-method widget
Date: 22 May 2000 17:13:43 +0200 [thread overview]
Message-ID: <mux4s7qk47s.fsf@uzeb.lrde.epita.fr> (raw)
In-Reply-To: Per Abrahamsen's message of "22 May 2000 16:24:51 +0200"
Per Abrahamsen wrote:
> There should be an "other/unknown" entry as well.
Like this:
Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 5.136
diff -u -w -r5.136 gnus.el
--- gnus.el 2000/05/06 21:43:18 5.136
+++ gnus.el 2000/05/22 15:16:22
@@ -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 "")
@@ -1296,14 +1299,18 @@
,@(mapcar (lambda (entry)
(list 'const :format "%v\n"
(intern (car entry))))
- gnus-valid-select-methods))
+ gnus-valid-select-methods)
+ (symbol :tag "other"))
(string :tag "Address")
(repeat :tag "Options"
: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
--
/ / _ _ 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être cedex Fax. +33 (1) 44 08 01 99
prev parent reply other threads:[~2000-05-22 15:13 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-05-22 13:16 Didier Verna
2000-05-22 14:24 ` Per Abrahamsen
2000-05-22 15:13 ` Didier Verna [this message]
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=mux4s7qk47s.fsf@uzeb.lrde.epita.fr \
--to=didier@lrde.epita.fr \
--cc=ding@gnus.org \
/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).