From: okada <okada>
Date: Sat, 17 Nov 2001 15:25:26 +0000 (+0000)
Subject: * smtp.el (smtp-send-by-myself): Fix.
X-Git-Tag: slim-1_14_8~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa2f52f8e650eded1e9f2f9b9d1268c89fd6516e;p=elisp%2Fflim.git

* smtp.el (smtp-send-by-myself): Fix.
---

diff --git a/ChangeLog b/ChangeLog
index 87c9ecf..744d28a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-18  Kenichi OKADA  <okada@opaopa.org>
 
+	* smtp.el (smtp-send-by-myself): Fix.
+
+2001-11-18  Kenichi OKADA  <okada@opaopa.org>
+
 	* smtp.el (smtp-send-by-myself): New variable.
 	(smtp-use-starttls-ignore-error): New variable.
 	(smtp-find-mx): New function.
diff --git a/smtp.el b/smtp.el
index cda4656..9c4fcba 100644
--- a/smtp.el
+++ b/smtp.el
@@ -383,6 +383,10 @@ BUFFER may be a buffer or a buffer name which contains mail message."
     (while (car servers)
       (setq server (caar servers))
       (setq recipients (cdar servers))
+      (if (not (and server recipients))
+	  ;; MAILER-DAEMON is required. :)
+	  (error (format "Cannot send <%s>"
+			 (mapconcat 'concat recipients ">,<"))))
       (setq package
 	    (smtp-make-package sender recipients buffer))
       (save-excursion