[elpa] master b67254c 096/187: * smtpmail-async.el (async-smtpmail-send-it): Eval content of buffer outside temp buffer.(attempt to fix issue in mu4e)

[Michael Albinus]

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

    * smtpmail-async.el (async-smtpmail-send-it): Eval content of buffer 
outside temp buffer.(attempt to fix issue in mu4e)
---
 smtpmail-async.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/smtpmail-async.el b/smtpmail-async.el
index 467c200..b1a132c 100644
--- a/smtpmail-async.el
+++ b/smtpmail-async.el
@@ -42,13 +42,15 @@
 (require 'smtpmail)
 
 (defun async-smtpmail-send-it ()
-  (let ((to (message-field-value "To")))
+  (let ((to          (message-field-value "To"))
+        (buf-content (buffer-substring-no-properties
+                      (point-min) (point-max))))
     (message "Delivering message to %s..." to)
     (async-start
      `(lambda ()
         (require 'smtpmail)
         (with-temp-buffer
-          (insert ,(buffer-substring-no-properties (point-min) (point-max)))
+          (insert ,buf-content)
           ;; Pass in the variable environment for smtpmail
           ,(async-inject-variables "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-")
           (smtpmail-send-it)))