[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-mime.el

[Romain Francoise]

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