+ (setq riece-ignored-user-list
+ (mapcar #'riece-parse-identity riece-startup-ignored-user-list))
+ (add-hook 'riece-message-filter-functions 'riece-ignore-message-filter))
+
+(defun riece-ignore-enable ()
+ (define-key riece-command-mode-map
+ "\C-ck" 'riece-ignore-user)
+ (setq riece-ignore-enabled t))
+
+(defun riece-ignore-disable ()