Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
65681:4312387e37c8 | 65682:c16795de963a |
---|---|
333 (pop plist))))) | 333 (pop plist))))) |
334 | 334 |
335 (defun gnus-completing-read-with-default (default prompt &rest args) | 335 (defun gnus-completing-read-with-default (default prompt &rest args) |
336 ;; Like `completing-read', except that DEFAULT is the default argument. | 336 ;; Like `completing-read', except that DEFAULT is the default argument. |
337 (let* ((prompt (if default | 337 (let* ((prompt (if default |
338 (concat prompt " (default " default ") ") | 338 (concat prompt " (default " default "): ") |
339 (concat prompt " "))) | 339 (concat prompt ": "))) |
340 (answer (apply 'completing-read prompt args))) | 340 (answer (apply 'completing-read prompt args))) |
341 (if (or (null answer) (zerop (length answer))) | 341 (if (or (null answer) (zerop (length answer))) |
342 default | 342 default |
343 answer))) | 343 answer))) |
344 | 344 |