/[emacs]/emacs/lisp/mh-e/mh-mime.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-mime.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by deego, Sun Sep 18 12:48:32 2005 UTC revision 1.18 by rfrancoise, Sat Sep 24 13:45:49 2005 UTC
# Line 81  If any of the optional arguments are abs Line 81  If any of the optional arguments are abs
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)))
# Line 374  See also \\[mh-edit-mhn]." Line 374  See also \\[mh-edit-mhn]."
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

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26