From: kaoru <kaoru>
Date: Sun, 15 Jun 2003 16:15:04 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-summary-line-string): Use
X-Git-Tag: wl-2_10_1pre~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a2a928e0bb5c5d89aa9ed1dd3702b1160c92b046;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-summary-line-string): Use
wl-summary-score-below-mark, wl-summary-score-over-mark.
(wl-highlight-summary-current-line): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8e44e7c..cd1b206 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-highlight.el (wl-highlight-summary-line-string): Use
+	wl-summary-score-below-mark, wl-summary-score-over-mark.
+	(wl-highlight-summary-current-line): Ditto.
+
 	* wl-draft.el, wl-expire.el, wl-mime.el, wl-summary.el, wl-util.el:
 	`message' and `error' take format string.
 
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 670cb55..c24b04b 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -771,12 +771,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)))
@@ -796,9 +796,9 @@
 	   (setq fsymbol 'wl-highlight-summary-unread-face))
 	  ((or (string= mark wl-summary-important-mark))
 	   (setq fsymbol 'wl-highlight-summary-important-face))
-	  ((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 (zerop (length indent))
 		 (setq fsymbol 'wl-highlight-summary-thread-top-face)
@@ -813,7 +813,7 @@
     (let ((inhibit-read-only t)
 	  (case-fold-search nil) temp-mark status-mark
 	  (deactivate-mark nil)
-	  fregexp fsymbol bol eol matched thread-top looked-at dest ds)
+	  fsymbol bol eol matched thread-top looked-at dest ds)
       (end-of-line)
       (setq eol (point))
       (beginning-of-line)
@@ -836,12 +836,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)))
@@ -854,9 +854,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