[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-mime.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-mime.el |
Date: |
Sat, 24 Sep 2005 09:45:51 -0400 |
Index: emacs/lisp/mh-e/mh-mime.el
diff -c emacs/lisp/mh-e/mh-mime.el:1.17 emacs/lisp/mh-e/mh-mime.el:1.18
*** emacs/lisp/mh-e/mh-mime.el:1.17 Sun Sep 18 12:48:32 2005
--- emacs/lisp/mh-e/mh-mime.el Sat Sep 24 13:45:49 2005
***************
*** 81,90 ****
(interactive (list
(read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
! (read-string (format "Messages%s: "
(if (numberp mh-sent-from-msg)
! (format " [%d]" mh-sent-from-msg)
! "")))))
(if (equal mh-compose-insertion 'gnus)
(mh-mml-forward-message description folder message)
(mh-mhn-compose-forw description folder message)))
--- 81,90 ----
(interactive (list
(read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
! (read-string (concat "Messages"
(if (numberp mh-sent-from-msg)
! (format " (default %d): "
mh-sent-from-msg)
! ": ")))))
(if (equal mh-compose-insertion 'gnus)
(mh-mml-forward-message description folder message)
(mh-mhn-compose-forw description folder message)))
***************
*** 374,383 ****
(interactive (list
(read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
! (read-string (format "Messages%s: "
(if (numberp mh-sent-from-msg)
! (format " [%d]" mh-sent-from-msg)
! "")))))
(beginning-of-line)
(insert "#forw [")
(and description
--- 374,383 ----
(interactive (list
(read-string "Forw Content-description: ")
(mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
! (read-string (concat "Messages"
(if (numberp mh-sent-from-msg)
! (format " (default %d): "
mh-sent-from-msg)
! ": ")))))
(beginning-of-line)
(insert "#forw [")
(and description