X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-unread.el;h=7e950b85a39f6d4475a3b2f6e0a02c53269a11a8;hp=06973672a678a29e9b40821afb6201102aecb7cc;hb=882acdc3888c53dea8bb0bd961b00d763f1eeced;hpb=6ba2b9c5a8125b926cae3d92663523f207da508e

diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index 0697367..7e950b8 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -58,6 +58,14 @@
   :group 'riece-highlight-faces)
 (defvar riece-channel-list-unread-face 'riece-channel-list-unread-face)
 
+(unless (riece-facep 'riece-modeline-unread-face)
+  (make-face 'riece-modeline-unread-face
+	     "Face used for displaying unread channels in modeline.")
+  (if (featurep 'xemacs)
+      (set-face-parent 'riece-modeline-unread-face 'modeline))
+  (set-face-foreground 'riece-modeline-unread-face
+		       (face-foreground 'riece-channel-list-unread-face)))
+
 (defvar riece-unread-channels nil)
 
 (defvar riece-unread-enabled nil)
@@ -100,7 +108,7 @@
 		string (replace-match "%%" nil nil string)))
 	(list (format "%d:" index)
 	      (riece-propertize-modeline-string
-	       string 'face 'riece-channel-list-unread-face)))))
+	       string 'face 'riece-modeline-unread-face)))))
 
 (defun riece-unread-switch-to-channel ()
   (interactive)