diff options
| author | Robert Pluim <rpluim@gmail.com> | 2022-08-25 18:13:16 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-08-25 18:14:55 +0200 |
| commit | ba64d091568f67bb648ad2d8cde61c7cf6fabf8e (patch) | |
| tree | a79822ace8c34e80256393349b7ebd1568139197 | |
| parent | 9e03e29c4ea275e03598163e48b56ab96b9063bf (diff) | |
| download | emacs-ba64d091568f67bb648ad2d8cde61c7cf6fabf8e.tar.gz | |
Treat smtp-auth method from auth-info as a symbol
The lookup of the SMTP auth method is done based on symbols, but
sometimes the requested value comes from `auth-info', in which case it
is a string, so call `intern-soft' to convert it to a symbol (which
does nothing if it's already a symbol).
* lisp/mail/smtpmail.el (smtpmail-try-auth-methods): Call
`intern-soft' on the smtp-auth key's value. (Bug#57373)
Do not merge to master
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 33458178a51..10e926a2a58 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -578,7 +578,7 @@ for `smtpmail-try-auth-method'.") (setq password (funcall password))) (let ((result (catch 'done (if (and mech user password) - (smtpmail-try-auth-method process mech user password) + (smtpmail-try-auth-method process (intern-soft mech) user password) ;; No mechanism, or no credentials. mech)))) (if (stringp result) |