changeset 82476:c4d5c23a6b0a

(mh-mml-forward-message): Address SF 1378993 and forward messages as inline attatchments.
author Jeffrey C Honig <jch@bsdi.com>
date Mon, 20 Aug 2007 02:32:44 +0000
parents 64024508c51b
children ebf88bc5dbf7
files lisp/mh-e/mh-mime.el
diffstat 1 files changed, 5 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mh-e/mh-mime.el	Sun Aug 19 23:55:12 2007 +0000
+++ b/lisp/mh-e/mh-mime.el	Mon Aug 20 02:32:44 2007 +0000
@@ -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)))
+           (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)