master 3758ff0 1/2: rcirc: Match NickServ messages case-insensitively (Bug#39345)

[Noam Postavsky]

branch: master
commit 3758ff0f3ad365b7a56c3e63a8d0d5f00f3d5085
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    rcirc: Match NickServ messages case-insensitively (Bug#39345)
    
    Reported by Jake Nelson <address@hidden>.
    * 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.
---
 lisp/net/rcirc.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a223416..1766e19 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)