Navigator for 2ch

ごめんなさい。以下のパッチを当ててください。

*** navi2ch-mona.el.orig Mon Jun 4 02:00:18 2001
--- navi2ch-mona.el Mon Jun 4 01:59:08 2001
***************
*** 46,53 ****
(defvar navi2ch-mona-font "-mona-gothic-medium-r-*--16-*-p-*")

;; mona 用の face を作成。
! (make-face 'navi2ch-mona-face)
! (set-face-font 'navi2ch-mona-face navi2ch-mona-font)

;; face が特に指定されていない部分を mona-face にする
(defun navi2ch-mona-put-face ()
--- 46,56 ----
(defvar navi2ch-mona-font "-mona-gothic-medium-r-*--16-*-p-*")

;; mona 用の face を作成。
! (add-hook
! 'navi2ch-hook
! '(lambda ()
! (make-face 'navi2ch-mona-face)
! (set-face-font 'navi2ch-mona-face navi2ch-mona-font)))

;; face が特に指定されていない部分を mona-face にする
(defun navi2ch-mona-put-face ()