]> git.eshelyaron.com Git - emacs.git/commitdiff
Treat smtp-auth method from auth-info as a symbol
authorRobert Pluim <rpluim@gmail.com>
Thu, 25 Aug 2022 09:47:57 +0000 (11:47 +0200)
committerRobert Pluim <rpluim@gmail.com>
Thu, 25 Aug 2022 13:22:39 +0000 (15:22 +0200)
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

index c2f8f273772152eadbcb05c606953cb115975969..8573532eac2889a92c3c526f823018b2b09c6501 100644 (file)
@@ -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