branch: master
commit 1ad2902ad86eea953394a685f859ad68fc4d3676
Author: John Wiegley <[email protected]>
Commit: John Wiegley <[email protected]>
Quiet byte-compiler warnings
---
async.el | 2 +-
smtpmail-async.el | 19 ++++++++++---------
2 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/async.el b/async.el
index 01865c0..2c6707b 100644
--- a/async.el
+++ b/async.el
@@ -68,7 +68,7 @@
"Simple asynchronous processing in Emacs"
:group 'emacs)
-(defvar async-callback)
+(defvar async-callback nil)
(defvar async-callback-value nil)
(defvar async-callback-value-set nil)
diff --git a/smtpmail-async.el b/smtpmail-async.el
index 8d4ea80..71f03e4 100644
--- a/smtpmail-async.el
+++ b/smtpmail-async.el
@@ -42,15 +42,16 @@
(require 'smtpmail)
(defun async-smtpmail-send-it ()
- (async-start
- `(lambda ()
- (require 'smtpmail)
- (with-temp-buffer
- (insert ,(buffer-substring-no-properties (point-min) (point-max)))
- ;; Pass in the variable environment for smtpmail
- (async-inject-environment "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-")
- (smtpmail-send-it)))
- 'ignore))
+ (macroexpand
+ '(async-start
+ `(lambda ()
+ (require 'smtpmail)
+ (with-temp-buffer
+ (insert ,(buffer-substring-no-properties (point-min) (point-max)))
+ ;; Pass in the variable environment for smtpmail
+ (async-inject-environment "\\`\\(smtpmail\\|\\(user-\\)?mail\\)-")
+ (smtpmail-send-it)))
+ 'ignore)))
(provide 'smtpmail-async)
