Navigator for 2ch

" & < > の置換ってこんな感じ? elisp って
変数に対する置換ってできないのかなぁ。普通
バッファ上で置換するのかしら。

navi2ch-article.el
- (insert (cdr (assq 'data elt)) "\n\n")
+ (let ((p (point)))
+ (insert (cdr (assq 'data elt)) "\n\n")
+ (goto-char p)
+ (while (search-forward "&quot;" nil t)
+ (replace-match "\"" nil t))
+ (goto-char p)
+ (while (search-forward "&amp" nil t)
+ (replace-match "&" nil t))
+ (goto-char (point-max)))

あと、デフォルトで bookmark を有効にしてほしいなぁ。navi2ch.el は
(defun navi2ch ()
(interactive)
- (navi2ch-list))
+ (navi2ch-list)
+ (navi2ch-list-toggle-bookmark))
がいいです。
# これだと最初に起動したとき、何も表示されないか?