(mh-forward): Address SF 1730393. When forwarding

with mml, messages were included in reverse order.

2 files changed, 6 insertions, 1 deletions

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  <jch@honig.net>
 
+        * 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)