Mercurial > emacs
diff lisp/gnus/gnus-util.el @ 65682:c16795de963a
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* smime.el (smime-sign-buffer, smime-decrypt-buffer):
* mm-view.el (mm-view-pkcs7-decrypt):
* gnus-sum.el (gnus-summary-limit-to-extra)
(gnus-summary-respool-article, gnus-read-move-group-name):
* gnus-score.el (gnus-summary-increase-score):
* gnus-util.el (gnus-completing-read-with-default):
* gnus-art.el (gnus-read-save-file-name)
(gnus-summary-save-in-rmail, gnus-summary-save-in-mail)
(gnus-summary-save-in-file, gnus-summary-save-body-in-file):
* message.el (message-check-news-header-syntax):
Follow convention for reading with the minibuffer.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 24 Sep 2005 13:46:20 +0000 |
| parents | c71b1b2d2d04 |
| children | a4e8d78ae3fb ee12d75eb214 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el Sat Sep 24 13:45:50 2005 +0000 +++ b/lisp/gnus/gnus-util.el Sat Sep 24 13:46:20 2005 +0000 @@ -335,8 +335,8 @@ (defun gnus-completing-read-with-default (default prompt &rest args) ;; Like `completing-read', except that DEFAULT is the default argument. (let* ((prompt (if default - (concat prompt " (default " default ") ") - (concat prompt " "))) + (concat prompt " (default " default "): ") + (concat prompt ": "))) (answer (apply 'completing-read prompt args))) (if (or (null answer) (zerop (length answer))) default