From 1e1255696367327df06b74068bf613050a7f89cf Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 15 Nov 2000 12:16:26 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-group.el | 11 ++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4340d0c..83cb54c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-11-15 Kai Gro,A_(Bjohann + + * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by + Stein Arild Str,Ax(Bmme. + (gnus-group-jump-to-group): Use it. + 2000-11-14 10:32:42 ShengHuo ZHU * mailcap.el (mailcap-possible-viewers): Match the entire string. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 22fec6a..49afe24 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -413,6 +413,15 @@ For example: :group 'gnus-charset :type '(repeat (cons (regexp :tag "Group") (symbol :tag "Charset")))) +(defcustom gnus-group-jump-to-group-prompt nil + "Default prompt for `gnus-group-jump-to-group'. +If non-nil, the value should be a string, e.g. \"nnml:\", +in which case `gnus-group-jump-to-group' offers \"Group: nnml:\" +in the minibuffer prompt." + :group 'gnus-group-various + :type '(choice (string :tag "Prompt string") + (const :tag "Empty" nil))) + ;;; Internal variables (defvar gnus-group-sort-alist-function 'gnus-group-sort-flat @@ -1833,7 +1842,7 @@ Return the name of the group if selection was successful." (list (completing-read "Group: " gnus-active-hashtb nil (gnus-read-active-file-p) - nil + gnus-group-jump-to-group-prompt 'gnus-group-history))) (when (equal group "") -- 1.7.10.4