* smtp.el (smtp-send-buffer): Error if `smtp-server' is nil.

[elisp/flim.git] / smtp.el

diff --git a/smtp.el b/smtp.el
index 4706bff..ff13f5a 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -346,7 +346,8 @@ BUFFER may be a buffer or a buffer name which contains mail message."
     (let ((server
           (if (functionp smtp-server)
               (funcall smtp-server sender recipients)
-            smtp-server))
+            (or smtp-server
+                (error "`smtp-server' not defined"))))
          (package
           (smtp-make-package sender recipients buffer))
          (smtp-open-connection-function