From: Lars Magne Ingebrigtsen Date: Tue, 2 Aug 2011 15:57:35 +0000 (+0200) Subject: Prefer port smtp over port 587 when sending mail. X-Git-Tag: emacs-pretest-24.0.90~104^2~124^2~66^2~15 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57d5aff0c0188c15731fa95c191c0c9ece27f943;p=emacs.git 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. --- 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)))