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

write sendlog.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6a8a65d..7d7ebc3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-30  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
+       write sendlog.
+
 2003-05-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * 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 (file)
--- 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