Stein Arild Strømme.
(gnus-group-jump-to-group): Use it.
+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.
2000-11-14 10:32:42 ShengHuo ZHU <zsh@cs.rochester.edu>
* mailcap.el (mailcap-possible-viewers): Match the entire string.
:group 'gnus-charset
:type '(repeat (cons (regexp :tag "Group") (symbol :tag "Charset"))))
: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
;;; Internal variables
(defvar gnus-group-sort-alist-function 'gnus-group-sort-flat
(list (completing-read
"Group: " gnus-active-hashtb nil
(gnus-read-active-file-p)
(list (completing-read
"Group: " gnus-active-hashtb nil
(gnus-read-active-file-p)
+ gnus-group-jump-to-group-prompt
'gnus-group-history)))
(when (equal group "")
'gnus-group-history)))
(when (equal group "")