レス数が950を超えています。1000を超えると表示できなくなるよ。

Navigator for 2ch

[592:名無しさん＠お腹いっぱい。 (2001/05/06(日) 04:47)]
ブックマークに登録するときは、何かメッセージを返して欲しい。
黙っているとちゃんと押したのか不安だ。

[593:名無しさん＠Ｅｍａｃｓ (2001/05/06(日) 07:56)]
突然、スレが読めなくなった。
でも ~/.navi2ch/history.txt を消したら直った。
どうもファイルが壊れていたらしい。気付くまでウン時間。鬱だ。

あ、010501 版です。

[594:ロッソ＠ＸＥｍａｃｓ (2001/05/06(日) 10:37)]
>>593
> でも ~/.navi2ch/history.txt を消したら直った。

　〃
（中」中）ノ　僕なんか、 rm -rf .navi2ch しちゃいました。こんど同様の症状になったら、history.txt だけ消して試してみます。

[595:(not 1) (2001/05/07(月) 00:53)]
・>>577 の patch を当てた。
・expire を list-mode からもできるようにした。
・ユーザ変数を defcustom 化した。
・いくつかバグ潰し

です

http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010504.tar.gz

ユーザ変数は navi2ch-var.el で全部定義するようにしてみました。
興味のある人は覗いてみて下さい。
M-x set-variable や、M-x customoize-group でも設定できるようになったので結
構ユーザにやさしくなった・・・はずです。

expire を list-mode とboard-mode で 'e' にバインドしました。
それと、navi2ch 起動時に毎回 expire するなら
(add-hook 'navi2ch-list-after-sync-hook 'navi2ch-list-expire-all)
でやれると思います(未確認) >>567 さん。

>>578-582
なんか微妙に荒れてるし。
でもこれで 2ch らしい立派なスレッドになった気もする :-)

>>583-588
rpm は良く判らないですが、解決したみたいでよかったです。

>>591
> 引用の部分に色が付かないのは私だけでしょうか?
俺も付かないです。
付けようと思ったんですけど mona-font とどう共存させればいいのか判んなかった
んで今んとこは保留です。

>>592
> ブックマークに登録するときは、何かメッセージを返して欲しい。
やっときました。

>>593
> 突然、スレが読めなくなった。
> でも ~/.navi2ch/history.txt を消したら直った。
多分直ったと思います。

[596:431 (2001/05/07(月) 05:06)]
ども、navi2ch-mona.el のもとになったモノを書いた者です。

> 付けようと思ったんですけど mona-font とどう共存させ
> ればいいのか判んなかったんで今んとこは保留です。

こんな風にしてみましたけど、如何でしょ。
# uuencodeがウザがられるかもしれんので、一応sageます。

begin 644 diff.gz
M'XL(`/F=]3H"`^U6W6_;-A!_MO^%OC"N.DN.F>C#3F(%+8INR)!T*5#TI4"W
M%K1,R5PD2J6HQ-G#_O8=2=FR_!%G&`;L80(,R'='WMWO[G>Z&8MCA".!.+EG
M?C3'KN>.W=%)+EARNI01(5F4TA.:;ICML.@.!H-G7M:YS3FZ)8\(G2/7#;UQ
MZ%\@WW6]+L;XL*?6\2`<^V%P9HX/VH\.R?='0]^?("U0]VM!X")XQUT$CYU2
MB6R[0':1,RX=Q]%B4#!>4@&Z:":03<KR.^K/B"2(I*P$.]3[E?=6QAN!XI)*
MG#)^APN1%W#-(VH\=(]WGRDJB2,F*8Y)1-?M]_@@0A">4)S1LB3)^@GG>:F9
M#';A%GBC8>"MX19XXV$0>`UNK:>?Y559Q]V?LV2>PD_NL*M$"H#F/"+@?2YE
M$9Z>]I"=$0EYE5(PGB#/J1]]'L"R9S2N.'H:+GM*$T3YS*!KE^2>8KJ(*E&R
MG"\1UU)!E:-(-G*-K1#Y`Y8YJ!/0H-9UVB3)01O-B:CQQ!GCSIK^8<Y2B$.H
MXA,!@<:Y>"!BMA4X!$V4=^6*+A!G*9+JGHZM4I)T(9NNJ:&!:!CG"AU76W8Z
MRJ/1093KTKZIPEZG2FW@/5;@`LA[\+UG]&'Y!^#-52K+OS_DA;J,I`B2!'>\
MRJ94F(KU7ECO7DU>I9:X.+;NCEZ^L-\9(Y!;/Y^=OG6NKJUODS^M;Z#IK7?J
MM(HQ)QG=;O4$Z`3:F`ICT(I&Y3)[SD3+(.(GQEFM/CC+:KO.)VCB6V@'?P1C
M)73/0Y@KAP;9\FQ[BOE!Z`7[I]C8'9Z-#!=5$P,6JHA-D_37;]>Z;>II^L4Y
MEZAM#!)5MNX1NKQ$O\#$4F5R;P+7$E`>M+I15^^]-;'N0+S=--I.M:\A8SV`
M-ECX-)%JK6Z%PEEEL.05ST%.\VGA.&O9*32^J\G'%6U*8$C:`*.<P(!<SC_(
M\6\]?37`-3V7<9*%ZK7F&KOB*0Q?2(EN$=?X-)<XK7KLHGEM;7L8%4[W4&!M
MBJ]JU$:F@;DP?%=M:5JIGN+_9BNM>F9X]:/U_O+S3[];8RNUKBS+NK&L:WDS
M_+_!3!W_:8/IRO\G&NQ90_B>B/*)(5RK#P[AVFYSFSR'C?#@$-YU-@A'YR%L
M//M7R5$P]$<7:ZND$HQ'S4H4RL<"4(.N-<N%EB4BKXJMS['FB=ELHJJ4>79@
M2=!;1N_KES=`DJ,9$.2W+U]7[RZ>P.M+%UZQ>IDH_<F@9PZI<?['[4?-N`]O
MQ^/A]>N+U_K+>]S$;%8O(]D7L=X5+H':RWT38&1D"OU9LW4CD]H,PV9HOMJ&
:LBQ&=DR)K`0%+PN:D:ATNG\!-.K(VY(,```3
`
end

[597:567 (2001/05/07(月) 07:30)]
>>595
> expire を list-mode とboard-mode で 'e' にバインドしました。

どうもありがとうございます。m(__)m

ただ、list mode で 'e' とすると「そんなファイルやディレクトリは
ありません: /home/xxxx/.navi2ch/hoge.2ch.net/hogehoge/」と
怒られますです。
たぶん、~/.navi2ch/ にすべての板（ディレクトリ）が存在すると
仮定していて、行ったことがない板のディレクトリまで自動的に見に
行ってるんじゃないかと思いますです。

[598:570-1 (2001/05/07(月) 10:34)]
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
navi2ch-mona-arrange-message()
run-hooks(navi2ch-mona-arrange-message)
# (unwind-protect ...)
(save-restriction (narrow-to-region beg end) (let (...) (when ... ... ...)) (run-hooks (quote navi2ch-article-arrange-message-hook)))
)
# (unwind-protect ...)
(save-excursion (save-restriction (narrow-to-region beg end) (let ... ...) (run-hooks ...)))
)
# bind (end beg)
navi2ch-article-arrange-message(47 103)
# bind (p)
(let ((p ...)) (insert (cdr ...) "\n") (navi2ch-article-set-link-property p (point)) (navi2ch-article-arrange-message p (point)))
)
# bind (alist num)
navi2ch-article-insert-message(1 ((subject . "*BSDニュース＠２ｃｈ") (data . "皆さんが見かけたBSDにまつわるニュース、記事、話題など、お気軽にお寄せください。\nリリース速報などもどうぞ。") (date . "2000/06/24(土) 22:37") (mail . "") (name . "名無しさん")))
(progn (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
(if (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (progn (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(when (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
# bind (alist num)
(let ((num ...) (alist ...)) (when (cond ... ... ...) (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(while --dolist-temp--100928 (setq x (car --dolist-temp--100928)) (let (... ...) (when ... ... ... ...)) (setq --dolist-temp--100928 (cdr --dolist-temp--100928)))
)
# bind (x --dolist-temp--100928)
(let ((--dolist-temp--100928 list) x) (while --dolist-temp--100928 (setq x ...) (let ... ...) (setq --dolist-temp--100928 ...)) nil)
)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(dolist (x list) (let (... ...) (when ... ... ... ...)))
)
# bind (imp hide len)
(let ((len ...) (hide ...) (imp ...)) (dolist (x list) (let ... ...)) (message "inserting current messages...done"))
)
# bind (range list)
navi2ch-article-insert-messages(((1

[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

read.cgi ver5.26+ (01/10/21-)