From: yoichi <yoichi>
Date: Mon, 27 Jan 2003 15:07:34 +0000 (+0000)
Subject: update
X-Git-Tag: merged-trunk-to-elmo-mark-14~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75c1b21f79055f0a8c1e4a5ce269d14c3106d51f;p=elisp%2Fwanderlust.git

update
---

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 50b2bd2..0eda7dd 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -767,12 +767,12 @@
 
 (defun wl-highlight-summary-line-string (line mark temp-mark indent)
   (let (fsymbol)
-    (cond ((and (string= temp-mark "+")
+    (cond ((and (string= temp-mark wl-summary-score-over-mark)
 		(member mark (list wl-summary-unread-cached-mark
 				   wl-summary-unread-uncached-mark
 				   wl-summary-new-mark)))
 	   (setq fsymbol 'wl-highlight-summary-high-unread-face))
-	  ((and (string= temp-mark "-")
+	  ((and (string= temp-mark wl-summary-score-below-mark)
 		(member mark (list wl-summary-unread-cached-mark
 				   wl-summary-unread-uncached-mark
 				   wl-summary-new-mark)))
@@ -832,12 +832,12 @@
 		dest t))))
       (if (not fsymbol)
 	  (cond
-	   ((and (string= temp-mark "+")
+	   ((and (string= temp-mark wl-summary-score-over-mark)
 		 (member status-mark (list wl-summary-unread-cached-mark
 					   wl-summary-unread-uncached-mark
 					   wl-summary-new-mark)))
 	    (setq fsymbol 'wl-highlight-summary-high-unread-face))
-	   ((and (string= temp-mark "-")
+	   ((and (string= temp-mark wl-summary-score-below-mark)
 		 (member status-mark (list wl-summary-unread-cached-mark
 					   wl-summary-unread-uncached-mark
 					   wl-summary-new-mark)))
@@ -850,9 +850,9 @@
 	   ((string= status-mark wl-summary-important-mark)
 	    (setq fsymbol 'wl-highlight-summary-important-face))
 	   ;; score mark
-	   ((string= temp-mark "-")
+	   ((string= temp-mark wl-summary-score-below-mark)
 	    (setq fsymbol 'wl-highlight-summary-low-read-face))
-	   ((string= temp-mark "+")
+	   ((string= temp-mark wl-summary-score-over-mark)
 	    (setq fsymbol 'wl-highlight-summary-high-read-face))
 	   ;;
 	   (t (if (null