From 027c8139d72c3766b9d0b20496c736bebaceb64a Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 22 Dec 2002 09:33:51 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send): Preview when interactive send. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 12 +++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) 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 + * wl-draft.el (wl-draft-send): Preview when interactive send. + +2002-12-22 Kenichi OKADA + * 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 -- 1.7.10.4