Synch with Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4340d0c..83cb54c 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 22fec6a..49afe24 100644 (file)
--- 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 "")