* wl-draft.el (wl-draft-send): Preview when interactive send.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 560839d..edc4617 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-12-22  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-draft.el (wl-draft-send): Preview when interactive send.
+
+2002-12-22  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-draft.el (wl-draft-reply): Set default position.
        * wl-summary.el (wl-summary-reply): Ditto.
        (wl-summary-reply-with-citation): Ditto.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 18e9427..3d16f70 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1272,7 +1272,17 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
   ;; (wl-draft-config-exec)
   (run-hooks 'wl-draft-send-hook)
   (when (or (not wl-interactive-send)
-           (y-or-n-p "Do you really want to send current draft? "))
+           (let (result)
+             (wl-draft-preview-message)
+             (goto-char (point-min))
+             (condition-case nil
+                 (setq result
+                       (y-or-n-p "Do you really want to send current draft? "))
+               (quit
+                (mime-preview-quit)
+                (signal 'quit nil)))
+             (mime-preview-quit)
+             result))
     (let ((send-mail-function 'wl-draft-raw-send)
          (editing-buffer (current-buffer))
          (sending-buffer (wl-draft-generate-clone-buffer