Commit d88a70a0 authored by Romain Francoise's avatar Romain Francoise
Browse files

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.
parent 5b76833f
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
......
......@@ -1424,10 +1424,10 @@ not indent and do not delete headers. Leaves the mark before the letter
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))
......
......@@ -81,10 +81,10 @@ If any of the optional arguments are absent, they are prompted for."
(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 @@ See also \\[mh-edit-mhn]."
(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
......
......@@ -2315,10 +2315,10 @@ non-nil then the function will accept the folder +, which means all folders
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment