From: okada <okada>
Date: Sun, 22 Dec 2002 09:33:51 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send): Preview when interactive send.
X-Git-Tag: merged-trunk-to-elmo-mark-14~72
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=027c8139d72c3766b9d0b20496c736bebaceb64a;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 560839d..edc4617 100644
--- 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
--- 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