Index: emacs/lisp/gnus/mm-view.el
diff -c emacs/lisp/gnus/mm-view.el:1.16 emacs/lisp/gnus/mm-view.el:1.17
*** emacs/lisp/gnus/mm-view.el:1.16 Wed Aug 31 13:07:49 2005
--- emacs/lisp/gnus/mm-view.el Fri Sep 9 01:47:33 2005
***************
*** 476,489 ****
(buffer-disable-undo)
(mm-insert-part handle)
(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))
;; By default, XEmacs font-lock uses non-duplicable text
;; properties. This code forces all the text properties
;; to be copied along with the text.
--- 476,491 ----
(buffer-disable-undo)
(mm-insert-part handle)
(require 'font-lock)
! (let ((font-lock-maximum-size nil)
! ;; Disable support modes, e.g., jit-lock, lazy-lock, etc.
! (font-lock-mode-hook nil)
! (font-lock-support-mode nil)
! ;; I find font-lock a bit too verbose.
! (font-lock-verbose nil))
! (funcall mode)
! ;; The mode function might have already turned on font-lock.
! (unless (symbol-value 'font-lock-mode)
! (font-lock-fontify-buffer)))
;; By default, XEmacs font-lock uses non-duplicable text
;; properties. This code forces all the text properties
;; to be copied along with the text.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
