From: yoichi <yoichi>
Date: Sat, 17 Jun 2006 03:37:53 +0000 (+0000)
Subject: * smtp.el (smtp-submit-package): Ignore error in
X-Git-Tag: flim-1_14_9-pre0~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=452d8a19638ea1e71787d7b52d8bf23c23ef0a27;p=elisp%2Fflim.git

* smtp.el (smtp-submit-package): Ignore error in
`smtp-primitive-quit' where SMTP mail transaction is completed.
---

diff --git a/ChangeLog b/ChangeLog
index 2431a22..d78e78b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* smtp.el (smtp-submit-package): Ignore error in
+	`smtp-primitive-quit' where SMTP mail transaction is completed.
+
 2006-06-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
diff --git a/smtp.el b/smtp.el
index af9e404..0df5fa6 100644
--- a/smtp.el
+++ b/smtp.el
@@ -423,7 +423,9 @@ BUFFER may be a buffer or a buffer name which contains mail message."
 	(smtp-primitive-data package))
     (let ((connection (smtp-find-connection (current-buffer))))
       (when (smtp-connection-opened connection)
-	(smtp-primitive-quit package)
+	(condition-case nil
+	    (smtp-primitive-quit package)
+	  (smtp-error))
 	(smtp-close-connection connection)))))
 
 (defun smtp-send-buffer-by-myself (sender recipients buffer)