[elpa] master f48fe54 099/187: * smtpmail-async.el: Try to catch 'done to not exit when smtpmail-via-smtp is recalled (#22).

[Michael Albinus]

branch: master
commit f48fe54fd08313b99927029045f26ea742e0ae85
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    * smtpmail-async.el: Try to catch 'done to not exit when smtpmail-via-smtp 
is recalled (#22).
---
 smtpmail-async.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/smtpmail-async.el b/smtpmail-async.el
index 76a9fb5..d01b406 100644
--- a/smtpmail-async.el
+++ b/smtpmail-async.el
@@ -56,7 +56,8 @@
           ,(async-inject-variables
             "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-"
             nil 
"\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
-          (smtpmail-send-it)))
+          (catch 'done
+            (smtpmail-send-it))))
      `(lambda (&optional ignore)
         (message "Delivering message to %s...done" ,to)))))