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