diff options
| author | Robert Pluim <rpluim@gmail.com> | 2022-08-25 11:47:57 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-08-25 15:22:39 +0200 |
| commit | 2385bf3397f8a92e226a29a5050c69dd8d2a1c31 (patch) | |
| tree | 9e9cd282c15fc30fcc5c1d6c1203b01b6e191040 | |
| parent | 34e0a232cd0e7b38a33bc9134134c47665aeb185 (diff) | |
| download | emacs-2385bf3397f8a92e226a29a5050c69dd8d2a1c31.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)
| -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 c2f8f273772..8573532eac2 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -577,7 +577,7 @@ for `smtpmail-try-auth-method'.") (stringp result)) (setq result (catch 'done (smtpmail-try-auth-method - process (pop mechs) user password)))) + process (intern-soft (pop mechs)) user password)))) ;; A string result is an error. (if (stringp result) (progn |