From: Philip Kaludercic <philipk@posteo.net>
Date: Sun, 5 Sep 2021 18:42:48 +0000 (+0200)
Subject: Implement multi-prefix capability
X-Git-Tag: emacs-28.0.90~948^2~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70d459914f25f52b950b41b8fd2717e1687c3776;p=emacs.git

Implement multi-prefix capability

* rcirc.el (rcirc-implemented-capabilities): Add capability
(rcirc-user-nick): Handle multiple prefixes
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index be90c56a43a..5a6688d5ff8 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -606,6 +606,7 @@ See `rcirc-connect' for more details on these variables.")
     "message-ids"                       ;https://ircv3.net/specs/extensions/message-ids
     "invite-notify"                     ;https://ircv3.net/specs/extensions/invite-notify
     "sasl"                              ;https://ircv3.net/specs/extensions/sasl-3.1
+    "multi-prefix"                      ;https://ircv3.net/specs/extensions/multi-prefix
     )
   "A list of capabilities that rcirc supports.")
 (defvar-local rcirc-requested-capabilities nil
@@ -2011,7 +2012,8 @@ PROCESS is the process object for the current connection."
   "Return the nick from USER.  Remove any non-nick junk."
   (save-match-data
     (if (string-match (concat "^[" rcirc-nick-prefix-chars
-			      "]?\\([^! ]+\\)!?") (or user ""))
+			      "]*\\([^! ]+\\)!?")
+                      (or user ""))
 	(match-string 1 user)
       user)))