1424 |
and point after it." |
and point after it." |
1425 |
(interactive |
(interactive |
1426 |
(list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
(list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
1427 |
(read-input (format "Message number%s: " |
(read-input (concat "Message number" |
1428 |
(if (numberp mh-sent-from-msg) |
(if (numberp mh-sent-from-msg) |
1429 |
(format " [%d]" mh-sent-from-msg) |
(format " (default %d): " mh-sent-from-msg) |
1430 |
""))) |
": "))) |
1431 |
current-prefix-arg)) |
current-prefix-arg)) |
1432 |
(save-restriction |
(save-restriction |
1433 |
(narrow-to-region (point) (point)) |
(narrow-to-region (point) (point)) |