From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 7 Feb 2012 00:21:00 +0000 (+0100)
Subject: * message.el (smtpmail-smtp-user): Silence compiler warning.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=a53e42140f9d472e60111cdcffba5f1a8dbbec27;p=gnus

* message.el (smtpmail-smtp-user): Silence compiler warning.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e4d89499..2bea734f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* message.el (smtpmail-smtp-user): Silence compiler warning.
+
 2012-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 
 	* message.el (message-multi-smtp-send-mail): Also allow specifying the
diff --git a/lisp/message.el b/lisp/message.el
index 77b23cbbb..96027a110 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4702,6 +4702,7 @@ If you always want Gnus to send messages in one piece, set
     (push 'mail message-sent-message-via)))
 
 (defvar sendmail-program)
+(defvar smtpmail-smtp-user)
 
 (defun message-multi-smtp-send-mail ()
   "Send the current buffer to `message-send-mail-function'.
@@ -4716,6 +4717,7 @@ that instead."
        ((equal (car method) "sendmail")
 	(message-send-mail-with-sendmail))
        ((equal (car method) "smtp")
+	(require 'smtpmail)
 	(let ((smtpmail-smtp-server (nth 1 method))
 	      (smtpmail-smtp-service (nth 2 method))
 	      (smtpmail-smtp-user (or (nth 3 method) smtpmail-smtp-user)))