81 |
(interactive (list |
(interactive (list |
82 |
(read-string "Forw Content-description: ") |
(read-string "Forw Content-description: ") |
83 |
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
84 |
(read-string (format "Messages%s: " |
(read-string (concat "Messages" |
85 |
(if (numberp mh-sent-from-msg) |
(if (numberp mh-sent-from-msg) |
86 |
(format " [%d]" mh-sent-from-msg) |
(format " (default %d): " mh-sent-from-msg) |
87 |
""))))) |
": "))))) |
88 |
(if (equal mh-compose-insertion 'gnus) |
(if (equal mh-compose-insertion 'gnus) |
89 |
(mh-mml-forward-message description folder message) |
(mh-mml-forward-message description folder message) |
90 |
(mh-mhn-compose-forw description folder message))) |
(mh-mhn-compose-forw description folder message))) |
374 |
(interactive (list |
(interactive (list |
375 |
(read-string "Forw Content-description: ") |
(read-string "Forw Content-description: ") |
376 |
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil) |
377 |
(read-string (format "Messages%s: " |
(read-string (concat "Messages" |
378 |
(if (numberp mh-sent-from-msg) |
(if (numberp mh-sent-from-msg) |
379 |
(format " [%d]" mh-sent-from-msg) |
(format " (default %d): " mh-sent-from-msg) |
380 |
""))))) |
": "))))) |
381 |
(beginning-of-line) |
(beginning-of-line) |
382 |
(insert "#forw [") |
(insert "#forw [") |
383 |
(and description |
(and description |