(message-send-mail-with-smtp): Require 'smtp.

diff --git a/lisp/message.el b/lisp/message.el
index b0466e7..43b745b 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2241,6 +2241,7 @@ to find out how to use this."
 
 (defun message-send-mail-with-smtp ()
   "Send off the prepared buffer with SMTP."
+  (require 'smtp) ; XXX
   (let ((case-fold-search t)
        recipients)
     (save-restriction