+(require 'riece-message)
+(require 'riece-commands)
+
+(eval-when-compile (require 'riece-highlight))
+
+(defgroup riece-unread nil
+ "Mark unread channels"
+ :tag "Unread"
+ :prefix "riece-"
+ :group 'riece)
+
+(defcustom riece-channel-list-unread-face 'riece-channel-list-unread-face
+ "Face used for displaying unread channels."
+ :type 'face
+ :group 'riece-highlight-faces)
+
+(defface riece-channel-list-unread-face
+ '((((class color)
+ (background dark))
+ (:foreground "pink"))
+ (((class color)
+ (background light))
+ (:foreground "firebrick"))
+ (t
+ ()))
+ "Face used for displaying unread channels."
+ :group 'riece-highlight-faces)