From 567e288eb9e89c768ff7ed6de256319007432ef7 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 9 Jun 2021 17:58:52 +0200 Subject: [PATCH] Implement message-ids extension * rcirc.el (rcirc-implemented-capabilities): Add to list of implemented extensions (rcirc-print): Insert property denoting message ID --- lisp/net/rcirc.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 918b716bc78..12e1fc3b2e4 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -579,6 +579,7 @@ See `rcirc-connect' for more details on these variables.") '("message-tags" ;https://ircv3.net/specs/extensions/message-tags "server-time" ;https://ircv3.net/specs/extensions/server-time "batch" ;https://ircv3.net/specs/extensions/batch + "message-ids" ;https://ircv3.net/specs/extensions/message-ids ) "A list of capabilities that rcirc supports.") (defvar-local rcirc-requested-capabilities nil @@ -1766,9 +1767,10 @@ connection." (save-excursion (save-restriction (narrow-to-region (point) (point)) - (insert (rcirc-format-response-string process sender response - nil text) - (propertize "\n" 'hard t)) + (insert (propertize (rcirc-format-response-string process sender response + nil text) + 'rcirc-msgid (rcirc-get-tag "msgid")) + (propertize "\n" 'hard t)) ;; squeeze spaces out of text before rcirc-text (fill-region (point-min) (point-max)) -- 2.39.2