Navigator for 2ch

>>431 なおった。
;; 記事に face をつける
(defun set-mona-face (beg end)
(put-text-property beg (point-max)
'face 'mona-face))

>>432
なるほど。
じゃあ、こんなんでどう？

(defvar my-navi2ch-mona-enable t
"mona フォントを使用するかどうか")
(defvar my-navi2ch-mona-enable-board-list nil
"mona フォントを使用する板のリスト.")
(defvar my-navi2ch-mona-disable-board-list '("unix" "linux")
"mona フォントを使用しない板のリスト")

;; Link 以外を mona-face にする
(defun my-navi2ch-put-mona-face (beg end)
(let (p)
(save-excursion
(goto-char beg)
(while (not (eq (point) (point-max)))
(setq p (next-single-property-change (point) 'link
(current-buffer) (point-max)))
(unless (get-text-property (point) 'link)
(put-text-property (point) (1- p)
'face 'my-navi2ch-mona-face))
(goto-char p)))))

(defun my-navi2ch-article-arrange-message (beg end)
(let ((id (cdr (assq 'id navi2ch-article-current-board))))
(when (or (member id my-navi2ch-mona-enable-board-list)
(and (not (member id my-navi2ch-mona-disable-board-list))
my-navi2ch-mona-enable))
(my-navi2ch-put-mona-face beg end))))

(add-hook 'navi2ch-article-arrange-message-functions
'my-navi2ch-article-arrange-message)