From aa2f52f8e650eded1e9f2f9b9d1268c89fd6516e Mon Sep 17 00:00:00 2001 From: okada Date: Sat, 17 Nov 2001 15:25:26 +0000 Subject: [PATCH] * smtp.el (smtp-send-by-myself): Fix. --- ChangeLog | 4 ++++ smtp.el | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 87c9ecf..744d28a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2001-11-18 Kenichi OKADA + * smtp.el (smtp-send-by-myself): Fix. + +2001-11-18 Kenichi OKADA + * 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 -- 1.7.10.4