From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Jul 2019 16:27:50 +0000 (+0200)
Subject: Tweak bug ID prompting in gnus-group--read-bug-ids
X-Git-Tag: emacs-27.0.90~1914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c450e09b8eea8839d10c329debb3be37ccd9a34;p=emacs.git

Tweak bug ID prompting in gnus-group--read-bug-ids

* lisp/gnus/gnus-group.el (gnus-group--read-bug-ids): Default to
current bug id on RET.
---

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 050b3898802..bdc8c38b1bb 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2446,7 +2446,10 @@ the bug number, and browsing the URL must return mbox output."
     ;; Pass DEF as the value of COLLECTION instead of DEF because:
     ;; a) null input should not cause DEF to be returned and
     ;; b) TAB and M-n still work this way.
-    (completing-read-multiple "Bug IDs: " (and def (list (format "%s" def))))))
+    (or (completing-read-multiple
+	 (format "Bug IDs%s: " (if def (format " (default %s)" def) ""))
+	 (and def (list (format "%s" def))))
+	def)))
 
 (defun gnus-read-ephemeral-bug-group (ids mbox-url &optional window-conf)
   "Browse bug reports with IDS in an ephemeral group.