# HG changeset patch
# User Jeffrey C Honig <jch@bsdi.com>
# Date 1187579133 0
# Node ID 6cd0b704b4719306735fc3e14c8c595104fce1bf
# Parent  ebf88bc5dbf71be85d065798a3b3afe3475c5b39
(mh-forward): Address SF 1730393.  When forwarding
with mml, messages were included in reverse order.

diff -r ebf88bc5dbf7 -r 6cd0b704b471 lisp/mh-e/mh-comp.el
--- a/lisp/mh-e/mh-comp.el	Mon Aug 20 02:32:54 2007 +0000
+++ b/lisp/mh-e/mh-comp.el	Mon Aug 20 03:05:33 2007 +0000
@@ -497,7 +497,9 @@
                   (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)