From: hmurata <hmurata>
Date: Mon, 9 Feb 2004 15:47:42 +0000 (+0000)
Subject: (wl-highlight-summary-line-face-spec): Make face
X-Git-Tag: wl-2_11_25~80
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a2f9724394f07d76e0b026353926248a8aac995a;p=elisp%2Fwanderlust.git

(wl-highlight-summary-line-face-spec): Make face
for flag if it is not defined.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4219325..c40bcb3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-highlight.el (wl-highlight-summary-line-face-spec): Make face
+	for flag if it is not defined.
+
 2004-02-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-e21.el (wl-highlight-folder-current-line): Use
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index aa2cb3f..a34cae6 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -854,8 +854,10 @@
 				  (intern (format
 					   "wl-highlight-summary-%s-flag-face"
 					   (car (car fl)))))
-			    (when (facep face)
-			      (list face)))
+			     (unless (facep face)
+			       (make-face face 'no-init)
+			       (set-face-foreground face (nth 1 (car fl))))
+			     (list face))
 			  fl nil))
 		  (setq fl (cdr fl)))
 	      (when (memq (car priorities) flags)