(mh-mml-forward-message): Address SF 1378993 and

forward messages as inline attatchments.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 748b1e293e1ac79b63efcd379d4075b94dce6fce..8c91b633c6d54300022e067aaa1a830c782a9fbd 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-20  Jeffrey C Honig  <jch@honig.net>
+
+       * mh-mime.el (mh-mml-forward-message): Address SF 1378993 and
+       forward messages as inline attatchments.
+
 2007-08-19  Jeffrey C Honig  <jch@honig.net>
 
        * mh-e.el (mh-invisible-header-fields-internal): We want to show

diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index eefaa0ed8ac7c22063d5213c029af841bd44a682..ffe558d1a62442c0a70bb62ddc39886dd2443915 100644 (file)
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -1220,16 +1220,11 @@ MESSAGE number."
                  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)))
+           (mml-attach-file (format "%s%s/%d"
+                                    mh-user-path (substring folder 1) msg)
+                            "message/rfc822"
+                            (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)