Mercurial > emacs
changeset 66128:debb27ca9375
* 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).
| author | Satyaki Das <satyaki@theforce.stanford.edu> |
|---|---|
| date | Sun, 16 Oct 2005 20:42:39 +0000 |
| parents | 158a650cbb46 |
| children | b6299ce0d13f |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-init.el lisp/mh-e/mh-utils.el |
| diffstat | 3 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)))
--- 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)