From: yoichi <yoichi>
Date: Mon, 27 Sep 2004 17:06:14 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-temp-message-buffer): Define.
X-Git-Tag: emiko-1_14-epg-branchpoint~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=78ff650b675257026b73adb3a8c2180d95feee3a;p=elisp%2Fsemi.git

* 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
--- 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
--- 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
--- 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