* mime-edit.el (mime-edit-temp-message-buffer): Define.

* mime-play.el (mime-view-temp-message-buffer): Ditto.
(mime-preview-quitting-method-for-mime-show-message-mode): Change
accordingly.

diff --git a/ChangeLog b/ChangeLog
index e554bb5..95d6f95 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * mime-edit.el (mime-edit-temp-message-buffer): Define.
+       * mime-play.el (mime-view-temp-message-buffer): Ditto.
+       (mime-preview-quitting-method-for-mime-show-message-mode): Change
+       accordingly.
+
 2004-09-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * README.en (CVS based development): Mention anonymous CVS access;

diff --git a/mime-edit.el b/mime-edit.el
index 5ab135a..3eff0ef 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2480,6 +2480,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 ;;;
 
 (defvar mime-edit-buffer nil) ; buffer local variable
+(defvar mime-edit-temp-message-buffer nil) ; buffer local variable
 
 (defun mime-edit-preview-message ()
   "preview editing MIME message."

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