+(defun riece-xfaceb-addremove-channel (&optional remove)
+ "*Add the current channel to `riece-xfaceb-channels'.
+
+With optional argument, REMOVE, remove the current channel from the
+list."
+ (interactive "P")
+ (if (or current-prefix-arg remove)
+ ;; Remove channel.
+ (progn
+ (setq riece-xfaceb-channels
+ (remove (riece-identity-prefix riece-current-channel)
+ riece-xfaceb-channels))
+ (message "Channel: %s removed from riece-xfaceb channel list."
+ (riece-identity-prefix riece-current-channel)))
+ ;; Add channel.
+ (add-to-list 'riece-xfaceb-channels
+ (riece-identity-prefix riece-current-channel))
+ (message "Channel: %s added to riece-xfaceb channel list."
+ (riece-identity-prefix riece-current-channel)))
+ (riece-emit-signal 'user-list-changed riece-current-channel))
+