1430 |
and point after it." |
and point after it." |
1431 |
(interactive |
(interactive |
1432 |
(list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
(list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
1433 |
(read-input (concat "Message number" |
(read-string (concat "Message number" |
1434 |
(if (numberp mh-sent-from-msg) |
(if (numberp mh-sent-from-msg) |
1435 |
(format " (default %d): " mh-sent-from-msg) |
(format " (default %d): " mh-sent-from-msg) |
1436 |
": "))) |
": "))) |
1437 |
current-prefix-arg)) |
current-prefix-arg)) |
1438 |
(save-restriction |
(save-restriction |
1439 |
(narrow-to-region (point) (point)) |
(narrow-to-region (point) (point)) |