Navigator for 2ch

> >>791
> > 以前読んだところから100以上レスがつくと
> > 以前読んだところがわからなくなる…
> navi2ch-article-exist-message-range を '(1 . 200) や nil にしてみるとか。

これ俺もお願いしたいです。初回読み込み時に number を save しないように
してらえると嬉しいです。
とりあえず自分のとこではこんな風にいじってます。

--- navi2ch-article.el.~1~ Mon Jul 2 03:49:58 2001
+++ navi2ch-article.el Fri Jul 6 23:13:25 2001
@@ -493,7 +493,7 @@
(navi2ch-article-insert-messages list range))
(setq navi2ch-article-message-list list)
(navi2ch-article-load-number)
- (navi2ch-article-save-info)
+ (navi2ch-article-save-info board article first)
(navi2ch-article-set-mode-line)
(run-hooks 'navi2ch-article-after-sync-hook)
list))))
@@ -693,9 +693,9 @@
(let ((num (cdr (assq 'number navi2ch-article-current-article))))
(navi2ch-article-goto-number (or num 1)))))

-(defun navi2ch-article-save-info (&optional board article)
+(defun navi2ch-article-save-info (&optional board article first)
(when (not navi2ch-article-from-file-p)
- (when navi2ch-article-message-list
+ (when (and navi2ch-article-message-list (not first))
(navi2ch-article-save-number))
(or board (setq board navi2ch-article-current-board))
(or article (setq article navi2ch-article-current-article))

その上で

(setq navi2ch-article-after-sync-hook
'(lambda ()
(let ((num (cdr (assq 'number navi2ch-article-current-article)))
(len (length navi2ch-article-message-list))
(range navi2ch-article-view-range))
(when (and num
(not (navi2ch-article-inside-range-p num range len))
(<= num (- len (cdr range))))
(let ((first (car range))
(last (+ 10 (- len num))))
(setq navi2ch-article-view-range (cons first last))
(navi2ch-article-redraw)
(navi2ch-article-goto-number num))))))

こんな hook をかけておくと、多い日も安心(?)なんですが。

あと、ネスケ使ってるんで、browse-url の引数に browse-url-new-window-p
を渡してもらえると嬉しかったりするんですが、これは browse-url のインター
フェイスがヘタれなような…