From 18cef7bac883aca6df2a372ce88fb147995617f1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 18 Jun 2003 18:12:13 +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 cd1b206..f8a6e4c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-06-18 TAKAHASHI Kaoru + + * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and + write sendlog. + 2003-06-15 TAKAHASHI Kaoru * wl-highlight.el (wl-highlight-summary-line-string): Use diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 1477069..383c6c9 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1094,6 +1094,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