(mime-view-insert-fontified-text-content): Inhibit font-lock when running

[elisp/semi.git] / mime-play.el

diff --git a/mime-play.el b/mime-play.el
index e0b646a..f4b5ddb 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -314,8 +314,7 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 It is registered to variable `mime-preview-quitting-method-alist'."
   (let ((mother mime-mother-buffer)
        (win-conf mime-preview-original-window-configuration))
-    (if (and (boundp 'mime-view-temp-message-buffer)
-            (buffer-live-p mime-view-temp-message-buffer))
+    (if (buffer-live-p mime-view-temp-message-buffer)
        (kill-buffer mime-view-temp-message-buffer))
     (mime-preview-kill-buffer)
     (set-window-configuration win-conf)
@@ -359,6 +358,8 @@ occurs."
            (make-directory dir))
        (set-default-file-modes orig-modes)))))
 
+(defvar mime-view-temp-message-buffer nil) ; buffer local variable
+
 (defun mime-store-message/partial-piece (entity cal)
   (let ((root-dir
         (expand-file-name