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> 2005-09-19 Juanma Barranquero <lekktu@gmail.com>
* mh-print.el (mh-ps-print-msg-show): Fix misplaced parenthesis in * 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 ...@@ -1424,10 +1424,10 @@ not indent and do not delete headers. Leaves the mark before the letter
and point after it." and point after it."
(interactive (interactive
(list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (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) (if (numberp mh-sent-from-msg)
(format " [%d]" mh-sent-from-msg) (format " (default %d): " mh-sent-from-msg)
""))) ": ")))
current-prefix-arg)) current-prefix-arg))
(save-restriction (save-restriction
(narrow-to-region (point) (point)) (narrow-to-region (point) (point))
......
...@@ -81,10 +81,10 @@ If any of the optional arguments are absent, they are prompted for." ...@@ -81,10 +81,10 @@ If any of the optional arguments are absent, they are prompted for."
(interactive (list (interactive (list
(read-string "Forw Content-description: ") (read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (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) (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) (if (equal mh-compose-insertion 'gnus)
(mh-mml-forward-message description folder message) (mh-mml-forward-message description folder message)
(mh-mhn-compose-forw description folder message))) (mh-mhn-compose-forw description folder message)))
...@@ -374,10 +374,10 @@ See also \\[mh-edit-mhn]." ...@@ -374,10 +374,10 @@ See also \\[mh-edit-mhn]."
(interactive (list (interactive (list
(read-string "Forw Content-description: ") (read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) (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) (if (numberp mh-sent-from-msg)
(format " [%d]" mh-sent-from-msg) (format " (default %d): " mh-sent-from-msg)
""))))) ": ")))))
(beginning-of-line) (beginning-of-line)
(insert "#forw [") (insert "#forw [")
(and description (and description
......
...@@ -2315,10 +2315,10 @@ non-nil then the function will accept the folder +, which means all folders ...@@ -2315,10 +2315,10 @@ non-nil then the function will accept the folder +, which means all folders
when used in searching." when used in searching."
(if (null default) (if (null default)
(setq 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) "") ((equal "" default) "")
(t (format "[%s] " default)))) (t (format " (default %s)" default))))
(prompt (format "%s folder: %s" prompt default-string)) (prompt (format "%s folder%s: " prompt default-string))
(mh-current-folder-name mh-current-folder) (mh-current-folder-name mh-current-folder)
read-name folder-name) read-name folder-name)
(while (and (setq read-name (mh-folder-completing-read (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