* 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 --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 0b995552c85cbf6cdb865441229d573687a468c9..093f5ee21edd996beed607865e3f00cbc917d0b0 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -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 --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el
index a0408172ed72eb8341bab9b603b32bd604527d85..4b84e525725fb17fb0d42f98afbbc180c6c7406d 100644 (file)
--- a/lisp/mh-e/mh-init.el
+++ b/lisp/mh-e/mh-init.el
@@ -337,7 +337,8 @@ directory is added to the `load-path' if it isn't already there."
              (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 --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index b589b63b597dc79e4f9629e0d3fa7cf331380968..2dbd313b1d22002ced6bb3da80385e6eefa81caa 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -1718,6 +1718,8 @@ Sets the current buffer to the show buffer."
       (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 @@ Sets the current buffer to the show buffer."
                                              (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)