font-lock doesn't work on MIME parts

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 264 bytes --]

Hi,

I'm using the latest Emacs CVS, `font-lock-support-mode' is set
to `jit-lock-mode' (it is the default).

Recently I noticed MIME parts displayed inline in the Gnus
article buffer aren't font-lock'ed.  For instance:

(The following line should be fontified.)


[-- Attachment #2: Type: application/emacs-lisp, Size: 21 bytes --]

[-- Attachment #3: Type: text/plain, Size: 187 bytes --]


I was unable to find the cause so far, but font-lock seems to
work only when the buffer is visible.  So, I made a patch for a
makeshift.

(The following part should also be fontified.)


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #4: Type: text/x-patch, Size: 605 bytes --]

--- mm-view.el~	2005-08-28 21:51:06 +0000
+++ mm-view.el	2005-09-02 11:03:24 +0000
@@ -497,7 +497,11 @@
 	(funcall mode))
       (let ((font-lock-verbose nil))
 	;; I find font-lock a bit too verbose.
-	(font-lock-fontify-buffer))
+	;; FIXME: font-lock seems to work only when the buffer is visible.
+	(save-window-excursion
+	  (set-window-buffer (selected-window) (current-buffer))
+	  (sit-for 0)
+	  (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.