mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Implement message-ids extension

Browse source 
* rcirc.el (rcirc-implemented-capabilities): Add to list of
implemented extensions
(rcirc-print): Insert property denoting message ID
This commit is contained in:
Philip Kaludercic 2021-06-09 17:58:52 +02:00
parent ab49a9a634
commit 567e288eb9
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/rcirc.el
View file

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