feature/rcirc-update 567e288 11/18: Implement message-ids extension

[Philip Kaludercic]

branch: feature/rcirc-update
commit 567e288eb9e89c768ff7ed6de256319007432ef7
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 918b716..12e1fc3 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))