* wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and

write sendlog.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cd1b206..f8a6e4c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
+       write sendlog.
+
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * 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 (file)
--- 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