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