From: okazaki <okazaki>
Date: Sun, 18 Feb 2001 21:26:35 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-summary-line-string): Use
X-Git-Tag: wl-2_6-root~107
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04477ba743cf2bcdaa1f8593af54b57cc90b8f5c;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-summary-line-string): Use
`zerop' instead of `= 0'.
(wl-highlight-summary): Use `zerop' instead of `eq 0'.
---

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index c818ff7..4be1ac9 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -820,7 +820,7 @@
 	   (setq fsymbol 'wl-highlight-summary-low-read-face))
 	  ((string= temp-mark "+")
 	   (setq fsymbol 'wl-highlight-summary-high-read-face))
-	  (t (if (= 0 (length indent))
+	  (t (if (zerop (length indent))
 		 (setq fsymbol 'wl-highlight-summary-thread-top-face)
 	       (setq fsymbol 'wl-highlight-summary-normal-face))))
     (put-text-property 0 (length line) 'face fsymbol line))
@@ -1012,7 +1012,7 @@ interpreted as cited text.)"
 		(when (> lines elmo-display-progress-threshold)
 		  (setq i (+ i 1))
 		  (setq percent (/ (* i 100) lines))
-		  (if (or (eq (% percent 5) 0) (= i lines))
+		  (if (or (zerop (% percent 5)) (= i lines))
 		      (elmo-display-progress
 		       'wl-highlight-summary "Highlighting..."
 		       percent)))