| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[599:570-2 (2001/05/07(月) 10:35)]
# bind (buffer-read-only)
(let ((buffer-read-only nil)) (erase-buffer) (navi2ch-article-insert-messages list range))
)
(progn (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
(if (or (and first ...) state) (progn (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(when (or (and first ...) state) (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
# bind (state old-size file url navi2ch-net-force-update board article range list)
(let* ((list navi2ch-article-message-list) (range navi2ch-article-view-range) (article navi2ch-article-current-article) (board navi2ch-article-current-board) (navi2ch-net-force-update ...) (url ...) (file ...) (old-size ...) state) (when first (setq article ...)) (let (...) (setq article ... navi2ch-article-current-article article state ...)) (when (or ... state) (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(progn (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
(if (not navi2ch-article-from-file-p) (progn (let* ... ... ... ...)))
)
(when (not navi2ch-article-from-file-p) (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
# bind (first force)
navi2ch-article-sync(nil first)
(let ((state ...)) (if state (progn ... t) nil))
[600:570-3 (2001/05/07(月) 10:36)]
(if (get-buffer buf-name) (progn (switch-to-buffer buf-name) (navi2ch-article-sync force)) (switch-to-buffer (get-buffer-create buf-name)) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range (if ... ... ...)) (let (...) (if state ... nil)))
)
# bind (buf-name)
(let ((buf-name ...)) (if (get-buffer buf-name) (progn ... ...) (switch-to-buffer ...) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range ...) (let ... ...)))
)
# bind (number force article board)
navi2ch-article-view-article(((time . "Mon, 07 May 2001 01:20:20 GMT") (nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "ブラウザなんとかしろ。") (response . "126") (artid . "969539141")) nil)
(setq state (navi2ch-article-view-article board article force))
)
# bind (state)
(let (state) (setq state (navi2ch-article-view-article board article force)) (save-excursion (set-buffer buf) (let ... ...)))
)
(progn (navi2ch-history-add board article) (dolist (x ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (setq state ...) (save-excursion ... ...)))
)
(if article (progn (navi2ch-history-add board article) (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message "can't select this line!"))
)
# bind (buf board article item)
(let* ((item ...) (article ...) (board ...) (buf ...)) (if article (progn ... ... ... ... ...) (message "can't select this line!")))
)
# bind (force)
navi2ch-bm-select-article(nil)
(if (and (navi2ch-article-current-buffer) (string= ... ...) (get-buffer-window ...)) (let (...) (select-window ...) (condition-case nil ... ...) (select-window win)) (navi2ch-bm-select-article force))
)
# bind (article)
(let ((article ...)) (if (and ... ... ...) (let ... ... ... ...) (navi2ch-bm-select-article force)))
)
# bind (force way)
navi2ch-bm-select-article-or-scroll(up nil)
# bind (force)
navi2ch-bm-select-article-or-scroll-up(nil)
# bind (command-debug-status)
call-interactively(navi2ch-bm-select-article-or-scroll-up)
# (condition-case ... . error)
# (catch top-level ...)
[601:毎度、rpmであります。 (2001/05/07(月) 12:26)]
http://navi2ch.tripod.co.jp/navi2ch-010504-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010504-1.nosrc.rpm
[602:名無しさん＠お腹いっぱい。 (2001/05/07(月) 14:26)]
>>601
毎度！
[603:名無しさん＠お腹いっぱい。 (2001/05/08(火) 00:39)]
っていうか、すごいね…
２chでこんな建設的なことをしているなんて…
[604:431 (2001/05/08(火) 01:35)]
>>570
それってもしかして、>>443を使ってない？
もう取り込まれてるからこれでいい筈。
(require 'navi2ch-mona)
(add-hook 'navi2ch-article-arrange-message-hook
'navi2ch-mona-arrange-message))
[605:564 (2001/05/08(火) 07:26)]
>>564 だけど、「ブラウザ変ですよん」の件は、
プロキシでRefererを通すようにしたら解決。
w3mでも同じプロキシ使ってたのでダメだったのだ。
navi2chとは全然関係ないとこで失敗してた。
おさわがせしてすんまそん。
[606:(not 1) (2001/05/08(火) 22:49)]
・引用に色が付くようにした
・list-mode でちゃんと expire できるように
・article-mode で微妙に速く(引用の色付けで逆に遅く)なった・・・かも
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010508.tar.gz
>>596 さん毎度どうもです。
patch 当ててから少し変更加えときました。
この引用の色付けですごい遅くなってしまった人とかっていますか？
あれだったら hook に引っかけるようにしますけど。
それと、navi2ch-article-enable-fill に何か板を登録してる人っているんでしょ
うか？
いなければ、その辺のコードを取り除いちゃおうと思うんですが。
>>597
> 仮定していて、行ったことがない板のディレクトリまで自動的に見に
> 行ってるんじゃないかと思いますです。
はい、その通りです(汗)。
直しました。
>>598-600
>>604(431) さんの書いたように設定を変えてみて下さい。
;; >>604 さんどうもです。
っていうか、俺がちゃんと >>570 を見とけばよかったですね。
;; backtrace 見てもあんま意味が分からんかった(汗)。
[607:名無しさん＠お腹いっぱい。 (2001/05/09(水) 01:54)]
ax ;
[608:名無しさん＠お腹いっぱい。 (2001/05/09(水) 01:55)]
sage
read.cgi ver5.26+ (01/10/21-)