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