Navigator for 2ch

XEmacs限定話です。Emacs20やMuleでは、そもそもプロポー
ショナルフォントは使えない筈です。

ええと、Emacs内全てのフォントがmonaで良いならば、.Xdefaultsに
Emacs.default.attributeFont: -mona-gothic-medium-r-normal--16-*-p-*
と書けば良いです。

ただ、XEmacsでは複数のフォントが混在できる筈なので、
article-modeのみmonaを使うようにしたい。

で、Infoと格闘しながら一応それっぽく設定したのですが、
スレッドによっては失敗するみたいです。自分ではこれで
限界なので、詳しい人のフォローを期待してとりあえず載
せます。誰か直して下さい。

;; mona 用の face を作成。
(make-face 'mona-face)
(set-face-property 'mona-face
'font "-mona-gothic-medium-r-*--16-*-p-*")

;; 記事に face をつける
(defun set-mona-face (beg end)
(put-text-property beg end
'face 'mona-face))

;; navi2ch のフックに登録
(add-hook 'navi2ch-article-arrange-message-functions
'set-mona-face)