mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

* mh-init.el (mh-image-load-path): Remove use of pushnew since it

Browse Source 
causes a compiler warning.

* mh-utils.el (mh-display-msg): Do MIME cleanup before inserting
the message to be viewed (closes SF #1306141).
This commit is contained in:
Satyaki Das 2005-10-16 20:42:39 +00:00
parent 255d8b22d9
commit 7c164e0c5f
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mh-e/ChangeLog
View File

@ -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

3
lisp/mh-e/mh-init.el
View File

@ -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)))

4
lisp/mh-e/mh-utils.el
View File

@ -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)