# HG changeset patch
# User Satyaki Das <satyaki@theforce.stanford.edu>
# Date 1129495359 0
# Node ID debb27ca937530d1c7342870cf908dc7517972df
# Parent  158a650cbb469002e5211b727841cf0e6ca98961
* mh-init.el (mh-image-load-path): Remove use of pushnew since it
causes a compiler warning.

* mh-utils.el (mh-display-msg): Do MIME cleanup before inserting
the message to be viewed (closes SF #1306141).

diff -r 158a650cbb46 -r debb27ca9375 lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Sun Oct 16 17:52:04 2005 +0000
+++ b/lisp/mh-e/ChangeLog	Sun Oct 16 20:42:39 2005 +0000
@@ -1,3 +1,11 @@
+2005-10-16  Satyaki Das  <satyaki@theforce.stanford.edu>
+
+	* mh-init.el (mh-image-load-path): Remove use of pushnew since it
+	causes a compiler warning.
+
+	* mh-utils.el (mh-display-msg): Do MIME cleanup before inserting
+	the message to be viewed (closes SF #1306141).
+
 2005-10-16  Masatake YAMATO  <jet@gyve.org>
 
 	* mh-comp.el (mh-complete-word): Pass the common
diff -r 158a650cbb46 -r debb27ca9375 lisp/mh-e/mh-init.el
--- a/lisp/mh-e/mh-init.el	Sun Oct 16 17:52:04 2005 +0000
+++ b/lisp/mh-e/mh-init.el	Sun Oct 16 20:42:39 2005 +0000
@@ -337,7 +337,8 @@
              (error "Can not find image directory %s"
                     mh-image-load-path))
             ((boundp 'image-load-path)
-             (pushnew mh-image-load-path image-load-path))
+             (unless (member mh-image-load-path image-load-path)
+               (push mh-image-load-path image-load-path)))
             ((not (member mh-image-load-path load-path))
              (push mh-image-load-path load-path))))
     (setq mh-image-load-path-called-flag t)))
diff -r 158a650cbb46 -r debb27ca9375 lisp/mh-e/mh-utils.el
--- a/lisp/mh-e/mh-utils.el	Sun Oct 16 17:52:04 2005 +0000
+++ b/lisp/mh-e/mh-utils.el	Sun Oct 16 20:42:39 2005 +0000
@@ -1718,6 +1718,8 @@
       (cond ((not (equal msg-filename buffer-file-name))
              (mh-unvisit-file)
              (setq buffer-read-only nil)
+             ;; Cleanup old mime handles
+             (mh-mime-cleanup)
              (erase-buffer)
              ;; Changing contents, so this hook needs to be reinitialized.
              ;; pgp.el uses this.
@@ -1729,8 +1731,6 @@
                                              (list "-form" formfile))
                                          msg-filename)
                (insert-file-contents-literally msg-filename))
-             ;; Cleanup old mime handles
-             (mh-mime-cleanup)
              ;; Use mm to display buffer
              (when (and mh-decode-mime-flag (not formfile))
                (mh-add-missing-mime-version-header)