(gnus-group-jump-to-group-prompt): New variable by

Stein Arild Strømme.
(gnus-group-jump-to-group): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4e9403..aa92c0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-11-15  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by
+       Stein Arild Str\e,Ax\e(Bmme.
+       (gnus-group-jump-to-group): Use it.
+
 2000-11-14 10:32:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mailcap.el (mailcap-possible-viewers): Match the entire string.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 6ab0e9b..3208135 100644 (file)
--- 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 "")