From: Robert Pluim <rpluim@gmail.com>
Date: Thu, 25 Aug 2022 16:13:16 +0000 (+0200)
Subject: Treat smtp-auth method from auth-info as a symbol
X-Git-Tag: emacs-28.2~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba64d091568f67bb648ad2d8cde61c7cf6fabf8e;p=emacs.git

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
---

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)