X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-highlight.el;h=f03fe3bd8deb3125ddcf15843a98b5486e75de4e;hb=4c3f56d75a954e8a1904bd767f2b544f5de57684;hp=aa2cb3f7322c702ef8cb290725e8d4d7df6e9b28;hpb=1758c704051cfce9a7d71c5fe43883fe8f124e85;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index aa2cb3f..f03fe3b 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -189,21 +189,6 @@
 
 ;; important messages
 
-(wl-defface wl-highlight-summary-important-face
-  '(
-    (((type tty)
-      (background dark))
-     (:foreground "magenta"))
-    (((class color)
-      (background dark))
-     (:foreground "orange"))
-    (((class color)
-      (background light))
-     (:foreground "purple")))
-  "Face used for displaying important messages."
-  :group 'wl-summary-faces
-  :group 'wl-faces)
-
 (wl-defface wl-highlight-summary-new-face
   '(
     (((type tty)
@@ -854,7 +839,7 @@
 				  (intern (format
 					   "wl-highlight-summary-%s-flag-face"
 					   (car (car fl)))))
-			    (when (facep face)
+			    (when (find-face face)
 			      (list face)))
 			  fl nil))
 		  (setq fl (cdr fl)))
@@ -864,7 +849,7 @@
 				   (intern (format
 					    "wl-highlight-summary-%s-face"
 					    (car priorities))))
-			     (when (facep face)
+			     (when (find-face face)
 			       (list face))))))
 	    (setq priorities (cdr priorities)))
 	  result))
@@ -1012,11 +997,11 @@ Variables used:
   "Highlight summary between start and end.
 Faces used:
   wl-highlight-summary-unread-face      unread messages
-  wl-highlight-summary-important-face   important messages
   wl-highlight-summary-deleted-face     messages mark as deleted
   wl-highlight-summary-refiled-face     messages mark as refiled
   wl-highlight-summary-copied-face      messages mark as copied
-  wl-highlight-summary-new-face         new messages"
+  wl-highlight-summary-new-face         new messages
+  wl-highlight-summary-*-flag-face      flagged messages"
   (if (< end start)
       (let ((s start)) (setq start end end s)))
   (let (lines too-big gc-message e p hend i percent)