Compare addresses case-insensitively in message-update-smtp-method-header

* lisp/gnus/message.el (message-update-smtp-method-header): Compare
addresses case-insensitively.
This commit is contained in:
Filipp Gunbin 2022-10-26 21:11:28 +03:00
parent b7e59b9e19
commit 56706c6946

View file

@ -4385,7 +4385,7 @@ it is left unchanged."
(setq method (or (cdr server) res))
(throw 'exit nil))))
((and (stringp (car server))
(string= (car server) from))
(string-equal-ignore-case (car server) from))
(setq method (cdr server))
(throw 'exit nil)))))
(when method