mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

(smtpmail-try-auth-methods): Pass port-name as defaultport to `netrc-machine'.

Browse source 
Do not try authentication when no mechanism is available.
This commit is contained in:
Sam Steingold 2004-02-04 15:35:11 +00:00
parent 12ad758a66
commit dbfa9ed49f
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2004-02-04 Sam Steingold <sds@gnu.org>
* mail/smtpmail.el (smtpmail-try-auth-methods):
Do not try authentication when no mechanism is available.
Pass port-name as defaultport to `netrc-machine'.
2004-02-04 Stephen Eglen <stephen@gnu.org>
* iswitchb.el (iswitchb-minibuffer-setup-hook): Update doc string

10
lisp/mail/smtpmail.el
View file

@ -488,15 +488,15 @@ This is relative to `smtpmail-queue-dir'.")
(mech (car (smtpmail-intersection smtpmail-auth-supported mechs)))
(cred (if (stringp smtpmail-auth-credentials)
(let* ((netrc (netrc-parse smtpmail-auth-credentials))
(hostentry (netrc-machine
netrc host (format "%s" (or port "smtp"))
"smtp")))
(port-name (format "%s" (or port "smtp")))
(hostentry (netrc-machine netrc host port-name
port-name)))
(when hostentry
(list host port
(netrc-get hostentry "login")
(netrc-get hostentry "password"))))
(smtpmail-find-credentials
smtpmail-auth-credentials host port)))
smtpmail-auth-credentiaals host port)))
(passwd (when cred
(or (smtpmail-cred-passwd cred)
(read-passwd
@ -504,7 +504,7 @@ This is relative to `smtpmail-queue-dir'.")
(smtpmail-cred-server cred)
(smtpmail-cred-port cred))))))
ret)
(when cred
(when (and cred mech)
(cond
((eq mech 'cram-md5)
(smtpmail-send-command process (format "AUTH %s" mech))