From 468d09d44ee9652802712053b0fc259891c431b7 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Jun 2011 23:05:06 +0200 Subject: If the SMTP server supports STARTTLS, but Emacs has no built-in or external STARTTLS support, then report this in a sensible fashion to the user. --- lisp/mail/smtpmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/mail') diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 3c9ea9de57..4a3cb90657 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -651,7 +651,9 @@ The list is in preference order.") ;; If we couldn't access the server at all, we give up. (unless (setq process (car result)) - (throw 'done "Unable to contact server")) + (throw 'done (if (plist-get (cdr result) :error) + (plist-get (cdr result) :error) + "Unable to contact server"))) ;; set the send-filter (set-process-filter process 'smtpmail-process-filter) -- cgit v1.2.3