Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 65680:ed770a0a7846 | 65681:4312387e37c8 |
|---|---|
| 79 Optional argument MESSAGE is the message to forward. | 79 Optional argument MESSAGE is the message to forward. |
| 80 If any of the optional arguments are absent, they are prompted for." | 80 If any of the optional arguments are absent, they are prompted for." |
| 81 (interactive (list | 81 (interactive (list |
| 82 (read-string "Forw Content-description: ") | 82 (read-string "Forw Content-description: ") |
| 83 (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) | 83 (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
| 84 (read-string (format "Messages%s: " | 84 (read-string (concat "Messages" |
| 85 (if (numberp mh-sent-from-msg) | 85 (if (numberp mh-sent-from-msg) |
| 86 (format " [%d]" mh-sent-from-msg) | 86 (format " (default %d): " mh-sent-from-msg) |
| 87 ""))))) | 87 ": "))))) |
| 88 (if (equal mh-compose-insertion 'gnus) | 88 (if (equal mh-compose-insertion 'gnus) |
| 89 (mh-mml-forward-message description folder message) | 89 (mh-mml-forward-message description folder message) |
| 90 (mh-mhn-compose-forw description folder message))) | 90 (mh-mhn-compose-forw description folder message))) |
| 91 | 91 |
| 92 ;; To do: | 92 ;; To do: |
| 372 | 372 |
| 373 See also \\[mh-edit-mhn]." | 373 See also \\[mh-edit-mhn]." |
| 374 (interactive (list | 374 (interactive (list |
| 375 (read-string "Forw Content-description: ") | 375 (read-string "Forw Content-description: ") |
| 376 (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) | 376 (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
| 377 (read-string (format "Messages%s: " | 377 (read-string (concat "Messages" |
| 378 (if (numberp mh-sent-from-msg) | 378 (if (numberp mh-sent-from-msg) |
| 379 (format " [%d]" mh-sent-from-msg) | 379 (format " (default %d): " mh-sent-from-msg) |
| 380 ""))))) | 380 ": "))))) |
| 381 (beginning-of-line) | 381 (beginning-of-line) |
| 382 (insert "#forw [") | 382 (insert "#forw [") |
| 383 (and description | 383 (and description |
| 384 (not (string= description "")) | 384 (not (string= description "")) |
| 385 (insert description)) | 385 (insert description)) |