From 57d5aff0c0188c15731fa95c191c0c9ece27f943 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 2 Aug 2011 17:57:35 +0200 Subject: [PATCH] Prefer port smtp over port 587 when sending mail. * mail/smtpmail.el (smtpmail-query-smtp-server): Try port 25 before 587, since it appears that that's more likely to work for more people. --- lisp/ChangeLog | 4 ++++ lisp/mail/smtpmail.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 65530d5e5e2..03c4f1dab02 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-08-02 Lars Magne Ingebrigtsen + * mail/smtpmail.el (smtpmail-query-smtp-server): Try port 25 + before 587, since it appears that that's more likely to work for + more people. + * cus-edit.el (custom-file): When running under emacs -q, always refuse to save the customisations, even if the .emacs file doesn't exist. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index cc46660712f..3b406fa9331 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -589,7 +589,7 @@ The list is in preference order.") (defun smtpmail-query-smtp-server () (let ((server (read-string "Outgoing SMTP mail server: ")) - (ports '(587 "smtp")) + (ports '("smtp" 587)) stream port) (when (and smtpmail-smtp-server (not (member smtpmail-smtp-server ports))) -- 2.39.2