Commit 57d5aff0 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

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.
parent 98cd6c18
2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* 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 * cus-edit.el (custom-file): When running under emacs -q, always
refuse to save the customisations, even if the .emacs file doesn't refuse to save the customisations, even if the .emacs file doesn't
exist. exist.
......
...@@ -589,7 +589,7 @@ The list is in preference order.") ...@@ -589,7 +589,7 @@ The list is in preference order.")
(defun smtpmail-query-smtp-server () (defun smtpmail-query-smtp-server ()
(let ((server (read-string "Outgoing SMTP mail server: ")) (let ((server (read-string "Outgoing SMTP mail server: "))
(ports '(587 "smtp")) (ports '("smtp" 587))
stream port) stream port)
(when (and smtpmail-smtp-server (when (and smtpmail-smtp-server
(not (member smtpmail-smtp-server ports))) (not (member smtpmail-smtp-server ports)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment