From 6dadb706bbae1b20b929ae2eda8d3f840142270c Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 26 Sep 2004 12:53:55 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-confirm): Check major-mode before calling wl-mime-quit-preview. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-draft.el (wl-draft-send-confirm): Check major-mode + before calling wl-mime-quit-preview. + 2004-09-25 Hiroya Murata * 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) -- 1.7.10.4