comparison lisp/gnus/mm-view.el @ 57640:c660fc46d193

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-633 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-57 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-58 Update from CVS 2004-10-21 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/mm-view.el (mm-display-inline-fontify): Inhibit font-lock when running the major-mode function. 2004-10-21 Kevin Greiner <kevin.greiner@compsol.cc> * lisp/gnus/gnus-start.el (gnus-convert-old-newsrc): Two of the converters have been backported to 'Gnus v5.11' from 'No Gnus v0.2'. Added a boolean check to not apply converters that apply to future versions of gnus.
author Miles Bader <miles@gnu.org>
date Thu, 21 Oct 2004 23:10:28 +0000
parents 7fdc1df35f39
children 18a818a2ee7c f3ec05478165
comparison
equal deleted inserted replaced
57639:7e77ec815f3a 57640:c660fc46d193
464 (set-buffer (generate-new-buffer "*fontification*")) 464 (set-buffer (generate-new-buffer "*fontification*"))
465 (unwind-protect 465 (unwind-protect
466 (progn 466 (progn
467 (buffer-disable-undo) 467 (buffer-disable-undo)
468 (mm-insert-part handle) 468 (mm-insert-part handle)
469 (funcall mode)
470 (require 'font-lock) 469 (require 'font-lock)
470 ;; Inhibit font-lock this time (*-mode-hook might run
471 ;; `turn-on-font-lock') so that jit-lock may not turn off
472 ;; font-lock immediately after this.
473 (let ((font-lock-mode t))
474 (funcall mode))
471 (let ((font-lock-verbose nil)) 475 (let ((font-lock-verbose nil))
472 ;; I find font-lock a bit too verbose. 476 ;; I find font-lock a bit too verbose.
473 (font-lock-fontify-buffer)) 477 (font-lock-fontify-buffer))
474 ;; By default, XEmacs font-lock uses non-duplicable text 478 ;; By default, XEmacs font-lock uses non-duplicable text
475 ;; properties. This code forces all the text properties 479 ;; properties. This code forces all the text properties