* smtpmail-async.el: Exclude some vars when injecting (#22).

diff --git a/smtpmail-async.el b/smtpmail-async.el
index b1a132c374688ba2c03505bf616ec051c896a319..f3f0b9e9548444a87a5c4c14042f0e38a8307f2d 100644 (file)
--- a/smtpmail-async.el
+++ b/smtpmail-async.el
@@ -52,7 +52,9 @@
         (with-temp-buffer
           (insert ,buf-content)
           ;; Pass in the variable environment for smtpmail
-          ,(async-inject-variables "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-")
+          ,(async-inject-variables
+            "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-"
+            nil "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
           (smtpmail-send-it)))
      `(lambda (&optional ignore)
         (message "Delivering message to %s...done" ,to)))))