[Emacs-diffs] /srv/bzr/emacs/trunk r105382: Prefer port smtp over port 587 when sending mail.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105382
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2011-08-02 17:57:35 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-02 15:46:07 +0000
+++ b/lisp/ChangeLog    2011-08-02 15:57:35 +0000
@@ -1,5 +1,9 @@
 2011-08-02  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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.

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-07-17 00:45:56 +0000
+++ b/lisp/mail/smtpmail.el     2011-08-02 15:57:35 +0000
@@ -589,7 +589,7 @@
 
 (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)))