From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 18:12:13 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
X-Git-Tag: wl-2_10_1pre~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=18cef7bac883aca6df2a372ce88fb147995617f1;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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