[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2385bf3397: Treat smtp-auth method from auth-info as a symbol
From: |
Robert Pluim |
Subject: |
master 2385bf3397: Treat smtp-auth method from auth-info as a symbol |
Date: |
Thu, 25 Aug 2022 09:22:48 -0400 (EDT) |
branch: master
commit 2385bf3397f8a92e226a29a5050c69dd8d2a1c31
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>
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)
---
lisp/mail/smtpmail.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index c2f8f27377..8573532eac 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2385bf3397: Treat smtp-auth method from auth-info as a symbol,
Robert Pluim <=