From 56f28a75e1659b08a8302c3c11b06c5f5a4c65a8 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 29 May 2003 22:29:25 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and write sendlog. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 6a8a65d..7d7ebc3 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-05-30 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and + write sendlog. + 2003-05-28 Yoichi NAKAYAMA * wl-summary.el (wl-summary-goto-folder-subr): Don't restrict diff --git a/wl/wl-draft.el b/wl/wl-draft.el index fd8b66f..bcf443a 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1072,6 +1072,10 @@ non-nil." smtp-sasl-user-name (car smtp-sasl-mechanisms) smtp-server))) + (signal (car err) (cdr err))) + (quit + (wl-draft-write-sendlog 'uncertain 'smtp smtp-server + recipients id) (signal (car err) (cdr err))))) (wl-draft-set-sent-message 'mail 'sent) (wl-draft-write-sendlog -- 1.7.10.4