(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 8c91b63..ee332fc 100644 (file)
--- 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 b74c445..a71de82 100644 (file)
--- 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)