From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Wed, 26 Oct 2022 18:11:28 +0000 (+0300)
Subject: Compare addresses case-insensitively in message-update-smtp-method-header
X-Git-Tag: emacs-29.0.90~1616^2~451
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56706c6946c4f8800fac0f2a5c3516273b01d8eb;p=emacs.git

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

* lisp/gnus/message.el (message-update-smtp-method-header): Compare
addresses case-insensitively.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a714e318767..24cba97718a 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -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