aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-07-14 18:27:50 +0200
committerLars Ingebrigtsen2019-07-14 18:27:50 +0200
commit0c450e09b8eea8839d10c329debb3be37ccd9a34 (patch)
tree7861c480a03e97f8f38190e7d143c9e9fde478af
parenta7aae1473c1aed7758b550a23cda61ee17668e23 (diff)
downloademacs-0c450e09b8eea8839d10c329debb3be37ccd9a34.tar.gz
emacs-0c450e09b8eea8839d10c329debb3be37ccd9a34.zip
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.
-rw-r--r--lisp/gnus/gnus-group.el5
1 files changed, 4 insertions, 1 deletions
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."
2446 ;; Pass DEF as the value of COLLECTION instead of DEF because: 2446 ;; Pass DEF as the value of COLLECTION instead of DEF because:
2447 ;; a) null input should not cause DEF to be returned and 2447 ;; a) null input should not cause DEF to be returned and
2448 ;; b) TAB and M-n still work this way. 2448 ;; b) TAB and M-n still work this way.
2449 (completing-read-multiple "Bug IDs: " (and def (list (format "%s" def)))))) 2449 (or (completing-read-multiple
2450 (format "Bug IDs%s: " (if def (format " (default %s)" def) ""))
2451 (and def (list (format "%s" def))))
2452 def)))
2450 2453
2451(defun gnus-read-ephemeral-bug-group (ids mbox-url &optional window-conf) 2454(defun gnus-read-ephemeral-bug-group (ids mbox-url &optional window-conf)
2452 "Browse bug reports with IDS in an ephemeral group. 2455 "Browse bug reports with IDS in an ephemeral group.