From c300326fa01cb9532e0399047a1ebdede5e2f65d Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 9 Jun 2021 18:44:55 +0200 Subject: [PATCH] Add TAGMSG handler * rcirc.el (rcirc-handler-TAGMSG): Add new message handler --- lisp/net/rcirc.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 12e1fc3b2e4..60cafd4dada 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -3322,6 +3322,14 @@ is the process object for the current connection." ;; All requested capabilities have been responded to (rcirc-send-string process "CAP" "END")))) +(defun rcirc-handler-TAGMSG (process sender _args _text) + "Handle a empty tag message from SENDER. +PROCESS is the process object for the current connection." + (dolist (tag rcirc-message-tags) + (when-let ((handler (intern-soft (concat "rcirc-tag-handler-" (car tag)))) + ((fboundp handler))) + (funcall handler process sender (cdr tag))))) + (defun rcirc-handler-BATCH (process _sender args _text) "Open or close a batch. ARGS should have the form (tag type . parameters) when starting a -- 2.39.2