(mm-display-inline-fontify): Inhibit font-lock when

running the major-mode function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c37777..05f370d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.el (mm-display-inline-fontify): Inhibit font-lock when
+       running the major-mode function.
+
 2004-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-sum.el (gnus-update-summary-mark-positions): Search for

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 5ff6c6d..9d3f0b0 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -470,8 +470,12 @@
          (progn
            (buffer-disable-undo)
            (mm-insert-part handle)
-           (funcall mode)
            (require 'font-lock)
+           ;; Inhibit font-lock this time (*-mode-hook might run
+           ;; `turn-on-font-lock') so that jit-lock may not turn off
+           ;; font-lock immediately after this.
+           (let ((font-lock-mode t))
+             (funcall mode))
            (let ((font-lock-verbose nil))
              ;; I find font-lock a bit too verbose.
              (font-lock-fontify-buffer))