From: Noam Postavsky <npostavs@gmail.com>
Date: Fri, 13 Mar 2020 01:03:45 +0000 (-0400)
Subject: rcirc: Match NickServ messages case-insensitively (Bug#39345)
X-Git-Tag: emacs-28.0.90~7766
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3758ff0f3ad365b7a56c3e63a8d0d5f00f3d5085;p=emacs.git

rcirc: Match NickServ messages case-insensitively (Bug#39345)

Reported by Jake Nelson <jake.nelson@gmail.com>.
* lisp/net/rcirc.el (rcirc-check-auth-status): NickServ will response
will show the nick in the same case used during registration, but
it allows case-insensitive matches when logging in.  Therefore, we
should accept response messages regardless of case.
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a2234166903..1766e192f2d 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2626,12 +2626,16 @@ the only argument."
                (and ;; nickserv
                 (string= sender "NickServ")
                 (string= target rcirc-nick)
-                (member message
-                        (list
-                         (format "You are now identified for \C-b%s\C-b." rcirc-nick)
-			 (format "You are successfully identified as \C-b%s\C-b." rcirc-nick)
-                         "Password accepted - you are now recognized."
-                         )))
+                (cl-member
+                 message
+                 (list
+                  (format "You are now identified for \C-b%s\C-b." rcirc-nick)
+                  (format "You are successfully identified as \C-b%s\C-b."
+                          rcirc-nick)
+                  "Password accepted - you are now recognized.")
+                 ;; The nick may have a different case, so match
+                 ;; case-insensitively (Bug#39345).
+                 :test #'cl-equalp))
                (and ;; quakenet
                 (string= sender "Q")
                 (string= target rcirc-nick)