From: Jeffrey C Honig Date: Mon, 20 Aug 2007 03:05:42 +0000 (+0000) Subject: (mh-forward): Address SF 1730393. When forwarding X-Git-Tag: emacs-pretest-23.0.90~11441 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d59261046372b7f2c7ddf4ab3934ba3a977deff3;p=emacs.git (mh-forward): Address SF 1730393. When forwarding with mml, messages were included in reverse order. --- diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 8c91b633c6d..ee332fc8186 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,5 +1,8 @@ 2007-08-20 Jeffrey C Honig + * mh-comp.el (mh-forward): Address SF 1730393. When forwarding + with mml, messages were included in reverse order. + * mh-mime.el (mh-mml-forward-message): Address SF 1378993 and forward messages as inline attatchments. diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index b74c445238e..a71de8246c5 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el @@ -497,7 +497,9 @@ See also `mh-compose-forward-as-mime-flag', (dolist (msg msgs) (setq i (1+ i)) (mh-mml-forward-message (format description i) - folder msg)))))) + folder msg) + ;; Was inserted before us, move to end of file to preserve order + (goto-char (point-max))))))) ;; Postition just before forwarded message (if (re-search-forward "^------- Forwarded Message" nil t) (forward-line -1)