branch: master
commit f48fe54fd08313b99927029045f26ea742e0ae85
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* 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)))))
