Mercurial > emacs
changeset 65681:4312387e37c8
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* mh-mime.el (mh-compose-forward, mh-mhn-compose-forw):
* mh-comp.el (mh-insert-letter):
* mh-utils.el (mh-prompt-for-folder):
Follow convention for reading with the minibuffer.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 24 Sep 2005 13:45:50 +0000 |
| parents | ed770a0a7846 |
| children | c16795de963a |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-comp.el lisp/mh-e/mh-mime.el lisp/mh-e/mh-utils.el |
| diffstat | 4 files changed, 19 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Sat Sep 24 13:44:02 2005 +0000 +++ b/lisp/mh-e/ChangeLog Sat Sep 24 13:45:50 2005 +0000 @@ -1,3 +1,10 @@ +2005-09-24 Emilio C. Lopes <eclig@gmx.net> + + * mh-mime.el (mh-compose-forward, mh-mhn-compose-forw): + * mh-comp.el (mh-insert-letter): + * mh-utils.el (mh-prompt-for-folder): + Follow convention for reading with the minibuffer. + 2005-09-19 Juanma Barranquero <lekktu@gmail.com> * mh-print.el (mh-ps-print-msg-show): Fix misplaced parenthesis in
--- a/lisp/mh-e/mh-comp.el Sat Sep 24 13:44:02 2005 +0000 +++ b/lisp/mh-e/mh-comp.el Sat Sep 24 13:45:50 2005 +0000 @@ -1424,10 +1424,10 @@ and point after it." (interactive (list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) - (read-input (format "Message number%s: " + (read-input (concat "Message number" (if (numberp mh-sent-from-msg) - (format " [%d]" mh-sent-from-msg) - ""))) + (format " (default %d): " mh-sent-from-msg) + ": "))) current-prefix-arg)) (save-restriction (narrow-to-region (point) (point))
--- a/lisp/mh-e/mh-mime.el Sat Sep 24 13:44:02 2005 +0000 +++ b/lisp/mh-e/mh-mime.el Sat Sep 24 13:45:50 2005 +0000 @@ -81,10 +81,10 @@ (interactive (list (read-string "Forw Content-description: ") (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) - (read-string (format "Messages%s: " + (read-string (concat "Messages" (if (numberp mh-sent-from-msg) - (format " [%d]" mh-sent-from-msg) - ""))))) + (format " (default %d): " mh-sent-from-msg) + ": "))))) (if (equal mh-compose-insertion 'gnus) (mh-mml-forward-message description folder message) (mh-mhn-compose-forw description folder message))) @@ -374,10 +374,10 @@ (interactive (list (read-string "Forw Content-description: ") (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) - (read-string (format "Messages%s: " + (read-string (concat "Messages" (if (numberp mh-sent-from-msg) - (format " [%d]" mh-sent-from-msg) - ""))))) + (format " (default %d): " mh-sent-from-msg) + ": "))))) (beginning-of-line) (insert "#forw [") (and description
--- a/lisp/mh-e/mh-utils.el Sat Sep 24 13:44:02 2005 +0000 +++ b/lisp/mh-e/mh-utils.el Sat Sep 24 13:45:50 2005 +0000 @@ -2315,10 +2315,10 @@ when used in searching." (if (null default) (setq default "")) - (let* ((default-string (cond (default-string (format "[%s] " default-string)) + (let* ((default-string (cond (default-string (format " (default %s)" default-string)) ((equal "" default) "") - (t (format "[%s] " default)))) - (prompt (format "%s folder: %s" prompt default-string)) + (t (format " (default %s)" default)))) + (prompt (format "%s folder%s: " prompt default-string)) (mh-current-folder-name mh-current-folder) read-name folder-name) (while (and (setq read-name (mh-folder-completing-read