- (cons (list (concat "^" riece-time-prefix-regexp "\\("
- (regexp-quote riece-ctcp-action-prefix)
- ".*\\)$")
- 1 riece-ctcp-action-face t t)
- riece-dialogue-font-lock-keywords))))
+ (cons riece-ctcp-dialogue-font-lock-keywords
+ riece-dialogue-font-lock-keywords)))
+ (unless (assq 'action riece-message-format-function-alist)
+ (setq riece-message-format-function-alist
+ (cons (cons 'action #'riece-ctcp-action-format-message)
+ riece-message-format-function-alist))))
+
+(defun riece-ctcp-uninstall ()
+ (remove-hook 'riece-privmsg-hook 'riece-handle-ctcp-request)
+ (remove-hook 'riece-notice-hook 'riece-handle-ctcp-response)
+ (setq riece-dialogue-font-lock-keywords
+ (delq riece-ctcp-dialogue-font-lock-keywords
+ riece-dialogue-font-lock-keywords)))