From: yoichi <yoichi>
Date: Fri, 24 Feb 2006 00:16:00 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-confirm): Bind wl-draft-send-hook to nil.
X-Git-Tag: wl-2_15_3~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e96c179317fbb136d689438c7037bb248275d78f;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-confirm): Bind wl-draft-send-hook to nil.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 880b16d..935eb1c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-24  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-send-confirm): Bind wl-draft-send-hook
+	to nil.
+
 2006-02-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-buffer-message-ring): New internal
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a9c1ecf..5650ddc 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1281,7 +1281,8 @@ This variable is valid when `wl-interactive-send' has non-nil value."
       (condition-case nil
 	  (progn
 	    (when wl-draft-send-confirm-with-preview
-	      (wl-draft-preview-message))
+	      (let (wl-draft-send-hook)
+		(wl-draft-preview-message)))
 	    (save-excursion
 	      (goto-char (point-min)) ; to show recipients in header
 	      (funcall