From a2f9724394f07d76e0b026353926248a8aac995a Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 9 Feb 2004 15:47:42 +0000 Subject: [PATCH] (wl-highlight-summary-line-face-spec): Make face for flag if it is not defined. --- wl/ChangeLog | 5 +++++ wl/wl-highlight.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * wl-highlight.el (wl-highlight-summary-line-face-spec): Make face + for flag if it is not defined. + 2004-02-09 Yuuichi Teranishi * 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) -- 1.7.10.4