(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)))
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)))
((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