From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 9 Jun 2021 15:58:52 +0000 (+0200)
Subject: Implement message-ids extension
X-Git-Tag: emacs-28.0.90~1748^2~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=567e288eb9e89c768ff7ed6de256319007432ef7;p=emacs.git

Implement message-ids extension

* rcirc.el (rcirc-implemented-capabilities): Add to list of
implemented extensions
(rcirc-print): Insert property denoting message ID
---

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))