[Emacs-commit] emacs/lisp/mh-e mh-mime.el

[Jeffrey C Honig]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jeffrey C Honig <jchonig>       07/08/20 02:32:45

Modified files:
        lisp/mh-e      : mh-mime.el 

Log message:
        (mh-mml-forward-message): Address SF 1378993 and
        forward messages as inline attatchments.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-mime.el?cvsroot=emacs&r1=1.58&r2=1.59

Patches:
Index: mh-mime.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-mime.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- mh-mime.el  19 Aug 2007 21:17:58 -0000      1.58
+++ mh-mime.el  20 Aug 2007 02:32:44 -0000      1.59
@@ -1220,16 +1220,11 @@
                  mh-sent-from-msg
                (string-to-number message))))
     (cond ((integerp msg)
-           (if (string= "" description)
-               ;; Rationale: mml-attach-file constructs a malformed composition
-               ;; if the description string is empty.  This fixes SF #625168.
-               (mml-attach-file (format "%s%s/%d"
-                                        mh-user-path (substring folder 1) msg)
-                                "message/rfc822")
              (mml-attach-file (format "%s%s/%d"
                                       mh-user-path (substring folder 1) msg)
                               "message/rfc822"
-                              description)))
+                            (if (string= "" description) nil description)
+                            "inline"))
           (t (error "The message number, %s, is not a integer" msg)))))
 
 (defun mh-mh-forward-message (&optional description folder messages)