From: teranisi <teranisi>
Date: Fri, 18 Oct 2002 04:49:30 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-summary-answered-face): New face.
X-Git-Tag: elmo-mark-restart~106
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aaeea4bbd6e6b7c058c833c6271205fd1a51a4a2;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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