MH-E: alter content in mh-display-msg, not mh-show-mode
* lisp/mh-e/mh-show.el (mh-display-msg, mh-show-mode): buffer-altering code formerly in mh-show-mode is moved to the location in mh-display-msg where mh-show-mode used to be called before the fix to MH-E bug #470 moved the call earlier.
This commit is contained in:
parent
db7fa2546f
commit
d3d2ea927c
1 changed files with 3 additions and 3 deletions
|
@ -234,6 +234,9 @@ Sets the current buffer to the show buffer."
|
|||
(mh-add-missing-mime-version-header)
|
||||
(setf (mh-buffer-data) (mh-make-buffer-data))
|
||||
(mh-mime-display))
|
||||
(mh-show-unquote-From)
|
||||
(mh-show-xface)
|
||||
(mh-show-addr)
|
||||
;; Header cleanup
|
||||
(goto-char (point-min))
|
||||
(cond (clean-message-header
|
||||
|
@ -840,9 +843,6 @@ See also `mh-folder-mode'.
|
|||
(mh-tool-bar-init :show))
|
||||
(set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
|
||||
(setq paragraph-start (default-value 'paragraph-start))
|
||||
(mh-show-unquote-From)
|
||||
(mh-show-xface)
|
||||
(mh-show-addr)
|
||||
(setq buffer-invisibility-spec '((vanish . t) t))
|
||||
(set (make-local-variable 'line-move-ignore-invisible) t)
|
||||
(make-local-variable 'font-lock-defaults)
|
||||
|
|
Loading…
Add table
Reference in a new issue