From 3c8a584d1e067991b97d5fa02d7e4a0ddb81ef26 Mon Sep 17 00:00:00 2001 From: Kai Grossjohann Date: Wed, 15 Nov 2000 11:00:25 +0000 Subject: [PATCH] =?utf8?q?(gnus-group-jump-to-group-prompt):=20New=20varia?= =?utf8?q?ble=20by=20Stein=20Arild=20Str=F8mme.=20(gnus-group-jump-to-grou?= =?utf8?q?p):=20Use=20it.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 6 ++++++ lisp/gnus-group.el | 8 +++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a4e940394..aa92c0c4a 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 6ab0e9bbb..320813584 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -412,6 +412,12 @@ For example: :group 'gnus-charset :type '(repeat (cons (regexp :tag "Group") (symbol :tag "Charset")))) +(defvar gnus-group-jump-to-group-prompt nil + "GNUS-GROUP-JUMP-TO-GROUP prompt. +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.") + ;;; Internal variables (defvar gnus-group-sort-alist-function 'gnus-group-sort-flat @@ -1825,7 +1831,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 "") -- 2.25.1