From: yoichi <yoichi>
Date: Thu, 29 May 2003 22:29:25 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-smtp): Catch quitting and
X-Git-Tag: merged-trunk-to-elmo-mark-18~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=56f28a75e1659b08a8302c3c11b06c5f5a4c65a8;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 6a8a65d..7d7ebc3 100644
--- 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
--- 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