* 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 (file)
--- 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 (file)
--- 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)