>>462
わしはこうしてる。
(eval-after-load "gikope"
'(progn
(require 'navi2ch-mona)
(navi2ch-mona-setup)
(defun gikope-view (name)
"NAME で指定される AA を表示する"
(interactive)
(set-buffer gikope-view-buffer-name)
(gikope-view-mode)
(setq gikope-view-aa-name name)
(let ((buffer-read-only nil))
(erase-buffer)
(insert (gikope-get-aa name))
(put-text-property (point-min) (point-max) 'face
'navi2ch-mona14-face))
(goto-char (point-min))
(set-buffer-modified-p nil))
))