summary-mode で jit-lock

summary-mode に jit-lock で色を付けてみる。つっても、wl は スクロールしたときに色を付けるから、これやってもほとんど意味ないんだけど。

(defun wl-highlight-summary-with-jit-lock (beg end)
  (goto-char beg)
  (while (< (point) end)
    (wl-highlight-summary-current-line (wl-summary-message-number))
    (forward-line 1)))

(setq wl-summary-highlight nil)
(setq wl-summary-lazy-highlight nil)

(add-hook 'wl-summary-mode-hook
	  (lambda ()
	    (jit-lock-register 'wl-highlight-summary-with-jit-lock)))