+(defun riece-history-uninstall ()
+ (remove-hook 'riece-after-switch-to-channel-functions
+ 'riece-history-after-switch-to-channel-functions)
+ (remove-hook 'riece-format-identity-for-channel-list-buffer-functions
+ 'riece-history-format-identity-for-channel-list-buffer)
+ (remove-hook 'riece-format-identity-for-channel-list-indicator-functions
+ 'riece-history-format-identity-for-channel-list-indicator)
+ (setq riece-channel-list-mark-face-alist
+ (delq (assq ?+ riece-channel-list-mark-face-alist)
+ riece-channel-list-mark-face-alist)))
+
+(defun riece-history-enable ()
+ (setq riece-channel-history
+ (make-ring riece-channel-history-length))
+ (riece-emit-signal 'channel-list-changed))
+
+(defun riece-history-disable ()
+ (setq riece-channel-history nil)
+ (riece-emit-signal 'channel-list-changed))
+