From d59261046372b7f2c7ddf4ab3934ba3a977deff3 Mon Sep 17 00:00:00 2001 From: Jeffrey C Honig Date: Mon, 20 Aug 2007 03:05:42 +0000 Subject: [PATCH] (mh-forward): Address SF 1730393. When forwarding with mml, messages were included in reverse order. --- lisp/mh-e/ChangeLog | 3 +++ lisp/mh-e/mh-comp.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.2