From: yoichi <yoichi>
Date: Mon, 27 Sep 2004 17:09:59 +0000 (+0000)
Subject: * wl-mime.el (mime-edit-temp-message-buffer): Remove definition.
X-Git-Tag: wl-2_12-root~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=deec958767057af0f861df4f132e776f5f5ae1ff;p=elisp%2Fwanderlust.git

* wl-mime.el (mime-edit-temp-message-buffer): Remove definition.
(wl-mime-quit-preview): Check existence of
mime-edit-temp-message-buffer here.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8909bbe..ba1de9d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-mime.el (mime-edit-temp-message-buffer): Remove definition.
+	(wl-mime-quit-preview): Check existence of
+	mime-edit-temp-message-buffer here.
+
 2004-09-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-fldmgr.el (wl-fldmgr-delete): Remove folder entity
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index cde2156..5897748 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -39,8 +39,6 @@
   (defalias-maybe 'pgg-display-output-buffer 'ignore)
   (defalias-maybe 'pgg-verify-region 'ignore))
 
-(defvar mime-edit-temp-message-buffer)
-
 ;;; Draft
 
 (defalias 'wl-draft-editor-mode 'mime-edit-mode)
@@ -218,7 +216,8 @@ It calls following-method selected from variable
 
 (defun wl-mime-quit-preview ()
   "Quitting method for mime-view."
-  (let* ((temp mime-edit-temp-message-buffer)
+  (let* ((temp (and (boundp 'mime-edit-temp-message-buffer) ;; for SEMI <= 1.14.6
+		    mime-edit-temp-message-buffer))
 	 (window (selected-window))
 	 buf)
     (mime-preview-kill-buffer)