From: yoichi <yoichi>
Date: Sun, 26 Sep 2004 12:53:55 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-confirm): Check major-mode
X-Git-Tag: wl-2_12-root~77
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6dadb706bbae1b20b929ae2eda8d3f840142270c;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-confirm): Check major-mode
before calling wl-mime-quit-preview.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 016cc20..82f7afa 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-send-confirm): Check major-mode
+	before calling wl-mime-quit-preview.
+
 2004-09-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-pick): If call it with prefix
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0515122..4c26bc3 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1316,7 +1316,8 @@ This variable is valid when `wl-interactive-send' has non-nil value."
 		     (t
 		      (throw 'done nil)))))))
 	  (quit nil))
-      (when wl-draft-send-confirm-with-preview
+      (when (and wl-draft-send-confirm-with-preview
+		 (eq major-mode 'mime-view-mode))
 	(wl-mime-quit-preview)))))
 
 (defun wl-draft-send (&optional kill-when-done mes-string)