Commit d29b2b4c authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

Respect smtpmail-smtp-service when doing a trial connection

* mail/smtpmail.el (smtpmail-query-smtp-server): Fix typo in the
way the ports list is computed.
parent 6a24cbb1
2012-02-14 Lars Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-query-smtp-server): Fix typo in the
way the ports list is computed.
2012-02-14 Teodor Zlatanov <tzz@lifelogs.com>
* net/gnutls.el (gnutls-trustfiles): Add Cygwin location.
......
......@@ -597,11 +597,11 @@ The list is in preference order.")
(defun smtpmail-query-smtp-server ()
(let ((server (read-string "Outgoing SMTP mail server: "))
(ports '("smtp" 587))
(ports '(25 587))
stream port)
(when (and smtpmail-smtp-server
(not (member smtpmail-smtp-server ports)))
(push smtpmail-smtp-server ports))
(when (and smtpmail-smtp-service
(not (member smtpmail-smtp-service ports)))
(push smtpmail-smtp-service ports))
(while (and (not smtpmail-smtp-server)
(setq port (pop ports)))
(when (setq stream (condition-case ()
......
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