From 452d8a19638ea1e71787d7b52d8bf23c23ef0a27 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 17 Jun 2006 03:37:53 +0000 Subject: [PATCH] * smtp.el (smtp-submit-package): Ignore error in `smtp-primitive-quit' where SMTP mail transaction is completed. --- ChangeLog | 5 +++++ smtp.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 2431a22..d78e78b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-06-15 Yoichi NAKAYAMA + + * smtp.el (smtp-submit-package): Ignore error in + `smtp-primitive-quit' where SMTP mail transaction is completed. + 2006-06-12 Hiroya Murata * 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) -- 1.7.10.4