+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
(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'.
((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)))