Navigator for 2ch

> mona font のコードを使わせてもらいました。どうもです。

おおぉ、まさか取り込んでもらえるとは!
こちらこそどうもです。すげ〜感動ッス。

> mona font の辺りは全然テストできてないんで(一応違う
> face 使ってやってみだけど)動かない可能性大です。

一応、直してみました。

--- navi2ch-mona.el.orig Thu Mar 22 04:50:54 2001
+++ navi2ch-mona.el Fri Mar 23 08:59:29 2001
@@ -25,7 +25,7 @@
;;; Commentary:

;; (require 'navi2ch-mona)
-;; (add-hook 'navi2ch-article-arrange-message-functions
+;; (add-hook 'navi2ch-article-arrange-message-hook
;; 'navi2ch-mona-arrange-message)
;; すればおっけ。 @@ -43,7 +43,7 @@

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

;; Link 以外を mona-face にする
@@ -73,8 +73,10 @@
(when (or (member id navi2ch-mona-enable-board-list)
(and (not (member id navi2ch-mona-disable-board-list))
navi2ch-mona-enable))
- (navi2ch-put-mona-face beg end))
+ (navi2ch-mona-put-face))
(when navi2ch-mona-pack-space-p
(navi2ch-mona-pack-space))))
+
+(provide 'navi2ch-mona)

;;; navi2ch-mona.el ends here