* smtp.el (smtp-submit-package): Ignore error in

[elisp/flim.git] / smtp.el

diff --git a/smtp.el b/smtp.el
index af9e404..0df5fa6 100644 (file)
--- 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)