[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-mime.el
From: |
Jeffrey C Honig |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-mime.el |
Date: |
Mon, 20 Aug 2007 02:32:45 +0000 |
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)
- [Emacs-commit] emacs/lisp/mh-e mh-mime.el,
Jeffrey C Honig <=