Re: emiko: wrong usage of buffer-file-name

>>>>>> In [emacs-mime-ja : No.01942]  wrote:

>> +	      (font-lock-fontify-buffer)
>> +	      (when (and (boundp 'jit-lock-mode)
>> +			 jit-lock-mode)
>> +		(jit-lock-fontify-now)))

 mime-view-insert-fontified-text-content 
Gnus  1999116
mm-display-patch-inline

      (diff-mode)
      (font-lock-fontify-buffer)

 Emacs  20.4
 jit-lock  1999721
 20011020
 Emacs 21.1 

 diff-mode-hook  turn-on-font-lock 
font-lock 


 mime-view-insert-fontified-text-content 
(funcall MODE)  (set-auto-mode) 
(font-lock-fontify-buffer)  font-lock  on
jit-lock  2 off 


 (funcall MODE) 
 font-lock-mode  t  on 
font-lock.el 

 mime-view.el ?

--- mime-view.el~	2004-10-21 00:21:19 +0000
+++ mime-view.el	2004-10-21 08:35:15 +0000
@@ -977,20 +977,18 @@
 	    (buffer-disable-undo)
 	    (kill-all-local-variables)
 	    (mime-view-insert-text-content entity situation)
-	    (cond (mode
-		   (funcall mode))
-		  ((setq filename (mime-entity-filename entity))
-		   (let ((buffer-file-name
-			  (expand-file-name (file-name-nondirectory filename)
-					    temporary-file-directory)))
-		     (set-auto-mode))))
 	    (require 'font-lock)
+	    (let ((font-lock-mode t))
+	      (cond (mode
+		     (funcall mode))
+		    ((setq filename (mime-entity-filename entity))
+		     (let ((buffer-file-name
+			    (expand-file-name (file-name-nondirectory filename)
+					      temporary-file-directory)))
+		       (set-auto-mode)))))
 	    (let ((font-lock-verbose nil))
 	      ;; I find font-lock a bit too verbose.
-	      (font-lock-fontify-buffer)
-	      (when (and (boundp 'jit-lock-mode)
-			 jit-lock-mode)
-		(jit-lock-fontify-now)))
+	      (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.