Mercurial > emacs
diff lisp/mh-e/mh-mime.el @ 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 | 8e711c68e4ff |
children | 4520ae2624f2 ee12d75eb214 |
line wrap: on
line diff
--- 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