Show
Ignore:
Timestamp:
09/10/05 10:16:00 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/gnus/mm-view.el

    r3809 r3863  
    4040  (unless (fboundp 'diff-mode) 
    4141    (autoload 'diff-mode "diff-mode" "" t nil))) 
     42 
     43(defvar gnus-article-mime-handles) 
     44(defvar gnus-newsgroup-charset) 
     45(defvar smime-keys) 
     46(defvar w3m-cid-retrieve-function-alist) 
     47(defvar w3m-current-buffer) 
     48(defvar w3m-display-inline-images) 
     49(defvar w3m-minor-mode-map) 
    4250 
    4351(defvar mm-text-html-renderer-alist 
    …… 
    469477            (mm-insert-part handle) 
    470478            (require 'font-lock) 
    471             ;; Inhibit font-lock this time (*-mode-hook might run 
    472             ;; `turn-on-font-lock') so that jit-lock may not turn off 
    473             ;; font-lock immediately after this. 
    474             (let ((font-lock-mode t)) 
    475               (funcall mode)) 
    476             (let ((font-lock-verbose nil)) 
    477               ;; I find font-lock a bit too verbose. 
    478               (font-lock-fontify-buffer)) 
     479            (let ((font-lock-maximum-size nil) 
     480                  ;; Disable support modes, e.g., jit-lock, lazy-lock, etc. 
     481                  (font-lock-mode-hook nil) 
     482                  (font-lock-support-mode nil) 
     483                  ;; I find font-lock a bit too verbose. 
     484                  (font-lock-verbose nil)) 
     485              (funcall mode) 
     486              ;; The mode function might have already turned on font-lock. 
     487              (unless (symbol-value 'font-lock-mode) 
     488                (font-lock-fontify-buffer))) 
    479489            ;; By default, XEmacs font-lock uses non-duplicable text 
    480490            ;; properties.  This code forces all the text properties