aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Gildea2020-02-01 09:28:30 -0800
committerStephen Gildea2020-02-01 09:28:30 -0800
commitd3d2ea927c19aed1eb74d60066627f13a4bc27d5 (patch)
tree14b3584bbe45761596bc41f9f540a268d0456a78
parentdb7fa2546fa42a9604614009e02c26df353035cd (diff)
downloademacs-d3d2ea927c19aed1eb74d60066627f13a4bc27d5.tar.gz
emacs-d3d2ea927c19aed1eb74d60066627f13a4bc27d5.zip
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.
-rw-r--r--lisp/mh-e/mh-show.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index 00f0908f99a..3c07d426b7d 100644
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -234,6 +234,9 @@ Sets the current buffer to the show buffer."
234 (mh-add-missing-mime-version-header) 234 (mh-add-missing-mime-version-header)
235 (setf (mh-buffer-data) (mh-make-buffer-data)) 235 (setf (mh-buffer-data) (mh-make-buffer-data))
236 (mh-mime-display)) 236 (mh-mime-display))
237 (mh-show-unquote-From)
238 (mh-show-xface)
239 (mh-show-addr)
237 ;; Header cleanup 240 ;; Header cleanup
238 (goto-char (point-min)) 241 (goto-char (point-min))
239 (cond (clean-message-header 242 (cond (clean-message-header
@@ -840,9 +843,6 @@ See also `mh-folder-mode'.
840 (mh-tool-bar-init :show)) 843 (mh-tool-bar-init :show))
841 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) 844 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
842 (setq paragraph-start (default-value 'paragraph-start)) 845 (setq paragraph-start (default-value 'paragraph-start))
843 (mh-show-unquote-From)
844 (mh-show-xface)
845 (mh-show-addr)
846 (setq buffer-invisibility-spec '((vanish . t) t)) 846 (setq buffer-invisibility-spec '((vanish . t) t))
847 (set (make-local-variable 'line-move-ignore-invisible) t) 847 (set (make-local-variable 'line-move-ignore-invisible) t)
848 (make-local-variable 'font-lock-defaults) 848 (make-local-variable 'font-lock-defaults)