From 1ad2902ad86eea953394a685f859ad68fc4d3676 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 18 Jun 2012 21:56:26 -0500
Subject: [PATCH] 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 01865c017..2c6707b6f 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 8d4ea804c..71f03e43d 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)
 
-- 
2.39.2