* wl-highlight.el (wl-highlight-summary-answered-face): New face.

(wl-highlight-summary-line-string): Use it.
(wl-highlight-summary-current-line): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ecc1774..c830d73 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-10-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-highlight.el (wl-highlight-summary-answered-face): New face.
+       (wl-highlight-summary-line-string): Use it.
+       (wl-highlight-summary-current-line): Ditto.
+
        * wl-mime.el (wl-message-delete-current-part): Check the class of
        mime-entity.
 

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 9cbfd21..df8462c 100644 (file)
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -300,6 +300,21 @@
   :group 'wl-summary-faces
   :group 'wl-faces)
 
+;; answered 
+(wl-defface wl-highlight-summary-answered-face
+  '((((type tty)
+      (background dark))
+     (:foreground "yellow"))
+    (((class color)
+      (background dark))
+     (:foreground "khaki"))
+    (((class color)
+      (background light))
+     (:foreground "khaki")))
+  "Face used for displaying answered messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)  
+
 ;; obsolete.
 (wl-defface wl-highlight-summary-temp-face
   '(
@@ -799,6 +814,9 @@
          ((member mark (list elmo-msgdb-unread-cached-mark
                              elmo-msgdb-unread-uncached-mark))
           (setq fsymbol 'wl-highlight-summary-unread-face))
+         ((member mark (list elmo-msgdb-answered-cached-mark
+                             elmo-msgdb-answered-uncached-mark))
+          (setq fsymbol 'wl-highlight-summary-answered-face))
          ((or (string= mark elmo-msgdb-important-mark))
           (setq fsymbol 'wl-highlight-summary-important-face))
          ((string= temp-mark "-")
@@ -856,6 +874,9 @@
           ((member status-mark (list elmo-msgdb-unread-cached-mark
                                      elmo-msgdb-unread-uncached-mark))
            (setq fsymbol 'wl-highlight-summary-unread-face))
+          ((member status-mark (list elmo-msgdb-answered-cached-mark
+                                     elmo-msgdb-answered-uncached-mark))
+           (setq fsymbol 'wl-highlight-summary-answered-face))
           ((string= status-mark elmo-msgdb-important-mark)
            (setq fsymbol 'wl-highlight-summary-important-face))
           ;; score mark