Navigator for 2ch

■掲示板に戻る■ 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50

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

Navigator for 2ch

1 ：名無しさん＠お腹いっぱい。 ：2000/12/06(水) 01:15: WindowsとかMac OSとかには2ch用専用アプリがあるけど
UNIXにはない。ということで作ってます。
http://zurubon.virtualave.net/source/113.jpg

GTK--,wgetが必須なのでインストールしといてください。
http://gtkmm.sourceforge.net/
561 ：遅れて鬱です。すみません。 ：2001/04/28(土) 13:31: http://navi2ch.tripod.co.jp/navi2ch-010418-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010418-1.nosrc.rpm
562 ：名無しさん＠お腹いっぱい。 ：2001/04/28(土) 14:27: >>561
いつも Thanks!
563 ：名無しさん＠お腹いっぱい。 ：2001/04/30(月) 12:31: >>549
> shimbun backend の sb-2ch.el なんてものを作ってみました。
よくわかりませんが、nnshimbunには、未対応のようね。
t-gnus/nana-gnus未対応;_;

> それにしても sb-tcup とかをサクっと作っちゃう寺西さんはやっぱすごいや。
検索すればよいのだろうが、ageかねて、URLきぼ～ぬ
564 ：名無しさん＠Ｅｍａｃｓ ：2001/04/30(月) 15:58: 時々ポストできない板があるみたいなんですが。家ゲー攻略とか。
試しにw3mでポストしようとしたら「ブラウザ変ですよん」になってしまった。
565 ：(not 1) ：2001/04/30(月) 23:22: >>551
> スレの投稿を見るウインドウ(article)で自動的にスクロールする
> 機能をつけることは可能？ってことです。スクロールのスピードは
一応自動スクロールなら、

(defun auto-scroll-subr ()
(scroll-up 1))
(defun auto-scroll ()
(interactive)
(run-with-timer 1 1 'auto-scroll-subr))
(defun auto-scroll-cancel ()
(interactive)
(cancel-function-timers 'auto-scroll-subr))

とか書いて、M-x auto-scroll でできなくもないです。付けますか？

>>552
> frameごとにbufferを別々に保持するのって今からじゃ難しいよね…
'f' とか 'b' で動ける buffer を frame ごとに持つって事ですか？
やろうと思えばできなくもない・・・かな。

>>553
気が向いたらやってみます。

>>554
> 長時間立ち上げてるとexitに時間かかるから、定期的にmemoryをHDDにsyncして
> くれると快適だな～とか言ってみるテスト。
う～ん、ちょっと面倒臭そうなのでとりあえず却下。
Emacs が止まるのが恐くて状態を保存したいときは、M-x navi2ch-save-status で
どうぞ。

>>555
> Messageウィンドウの「Mail」欄なのですが、「From」欄と同様にその内容を
> 保存できるようにしていただけないでしょうか。2chなのだからその必要性は
はい、やっときます。
覚えるんだったら、その時だけでなくて、次回起動時にも覚えておいた方がいいで
すよね。

>>557
> debパッケージ発見age
すげぇや。deb になってる。
rpm もあるし、あとは ports になれば完ぺきですね。;-p

>>562
> >>561
> いつも Thanks!
俺からもサンクスです。

>>563
> > shimbun backend の sb-2ch.el なんてものを作ってみました。
> よくわかりませんが、nnshimbunには、未対応のようね。
> t-gnus/nana-gnus未対応;_;
http://www.namazu.org/~tsuchiya/emacs-w3m/ml/msg00637.html
にある nnshimbun.el.gz にすれば使えるっぽいです。
でも、sb-tcup が XEmacs だと不具合があるみたいな事が流れてたので、もしかし
たら sb-2ch も XEmacs では使えないかもしれないです。

> > それにしても sb-tcup とかをサクっと作っちゃう寺西さんはやっぱすごいや。
> 検索すればよいのだろうが、ageかねて、URLきぼ～ぬ
えっと、emacs-w3m の ML で shimbun なんてものを寺西さんが作ってます。
nnshimbun の機能の内 gnus 非依存の部分を抜き出したモジュールなんだそうな。
現在は wl と gnus(?) が対応してるみたいです。
;; mew もそのうち対応するのかな？

>>564
> 時々ポストできない板があるみたいなんですが。家ゲー攻略とか。
> 試しにw3mでポストしようとしたら「ブラウザ変ですよん」になってしまった。

w3m でも駄目なんすか？
俺にはちょっと判らないんで、詳しい方情報求むです。

今晩は久し振りに navi2ch をいじってみるつもり。
566 ：(not 1) ：2001/05/01(火) 05:46: ・追加の板をファイルから読むようにした。
・色が付くようにした。
・読み込み履歴を付けた。
・mail address を覚えるようにした。
・sage で書き込めるように

です。

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

追加の板は .navi2ch/etc.txt に書いて下さい。
フォーマットは普通の board.txt と同じ(カテゴリは付けられない)です。

色は全部 navi2ch-face.el で指定してます。
気に入らなかったら好きな色に変えてやって下さい。
あと、背景が暗いときの色を募集中です。

読み込み履歴は navi2ch カテゴリの中の履歴からどうぞ。
'g' で移動するときは 'hist' と入力して下さい。
また、navi2ch-history-max-line で覚える履歴の数を指定できます。
nil なら制限なしです。

'W' で sage で書きこみできるようにしてみました。
なので、mail address を覚えるようにはなってても sage だけは覚えないようになっ
てます。sage で話し続けたいときは 'W' で書き込むようにして下さい >>555 さん。
567 ：名無しさん＠お腹いっぱい。 ：2001/05/01(火) 07:57: 今回もありがたく頂戴しました。さんくすです。

ところで、navi2ch を起動したときに expire できるように
なったらいいと思うんですが。
板に入ったときにその板を expire だと、滅多に行かない
板のログがいつまでも残ったりすると思うんで。

どうっすかねぇ？
568 ：名無しさん＠お腹いっぱい。 ：2001/05/01(火) 08:47: > ・mail address を覚えるようにした。

IDも、覚えてくれんかな。
隔離板故、ダメ？
569 ：555 ：2001/05/01(火) 08:48: >>566
sageが順調です。ありがとうございました。助かります。
570 ：010501.tar.gz on XEmacs ：2001/05/01(火) 09:27: ;(setq navi2ch-mona-enable-board-list '("mona")
; navi2ch-mona-pack-space-p t
; navi2ch-mona-enable t)
;(add-hook 'navi2ch-article-arrange-message-functions
; 'my-navi2ch-article-arrange-message)

これを、有効にすると変なエラーが出てしまいます。
571 ：rpmです ：2001/05/01(火) 10:54: http://navi2ch.tripod.co.jp/navi2ch-010501-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010501-1.nosrc.rpm
572 ：名無しさん＠お腹いっぱい。 ：2001/05/01(火) 12:50: >>570
どんなエラーか書かないとどうしようもないと思われ。

>>571
いただきました。さんくす！
573 ：名無しさん ：2001/05/01(火) 12:56: だから変なエラーって言ってるダロ
574 ：554 ：2001/05/01(火) 13:46: >>565
> > frameごとにbufferを別々に保持するのって今からじゃ難しいよね…
> 'f' とか 'b' で動ける buffer を frame ごとに持つって事ですか？
> やろうと思えばできなくもない・・・かな。
複数の板を別々のフレームで同時に見たいってことです。
lock を別にすると Emacs ふたつあげればいいのかもしれないけど。

> > 長時間立ち上げてるとexitに時間かかるから、定期的にmemoryをHDDにsyncして
> > くれると快適だな～とか言ってみるテスト。
> う～ん、ちょっと面倒臭そうなのでとりあえず却下。
> Emacs が止まるのが恐くて状態を保存したいときは、M-x navi2ch-save-status で
thanx

それと、ここバグってます↓

--- navi2ch-history.el.orig Tue May 1 13:43:39 2001
+++ navi2ch-history.el Tue May 1 13:44:02 2001
@@ -80,7 +80,8 @@
(> (length navi2ch-history-alist)
navi2ch-history-max-line))
(setq navi2ch-history-alist
- (delete (last navi2ch-history-alist)))))
+ (delete (last navi2ch-history-alist)
+ navi2ch-history-alist))))

(defun navi2ch-history-insert-subject (num item)
(navi2ch-bm-insert-subject
575 ：570 ：2001/05/01(火) 14:39: 570 != 573だが、

(not 1)さんの、requestがあれば、backtrace付けます。
これで、多分分かるのではないかと、思っているんですが。
576 ：名無しさん＠お腹いっぱい。 ：2001/05/01(火) 19:37: request がなくても付けろよ。
減るもんじゃなし。
577 ：(not 1) ：2001/05/01(火) 22:38: >>567
> ところで、navi2ch を起動したときに expire できるように
そですね。やっときます。

>>568
> IDも、覚えてくれんかな。
ID の仕組みって良く判ってないんすよ。
書き込む時に自分の ID も一緒に書き込むんでしょうか？

>>571
毎度どうもです。

>>574
> 複数の板を別々のフレームで同時に見たいってことです。
やっぱり板 buffer も複数持てた方がいいのかな。
でも今更面倒臭いと言えば確かに面倒臭いな。
考えときます。

> それと、ここバグってます↓
どもです。っていうか delete じゃまずかったですね。
とりあえずこんなパッチを当てといて下さい。

--- navi2ch-history.el 2001/04/30 20:17:30 1.1
+++ navi2ch-history.el 2001/05/01 13:26:42
@@ -79,8 +79,9 @@
(when (and navi2ch-history-max-line
(> (length navi2ch-history-alist)
navi2ch-history-max-line))
- (setq navi2ch-history-alist
- (delete (last navi2ch-history-alist)))))
+ (setcdr (nthcdr (1- navi2ch-history-max-line)
+ navi2ch-history-alist)
+ nil)))

(defun navi2ch-history-insert-subject (num item)
(navi2ch-bm-insert-subject

>>575
> (not 1)さんの、requestがあれば、backtrace付けます。
お願いします。
578 ：名無しさん＠お腹いっぱい。 ：2001/05/02(水) 08:52: >>576うるさいやっちゃな。外野は黙ってろ。
579 ：名無しさん＠お腹いっぱい。 ：2001/05/02(水) 10:51: あたりまえのこと言われて逆切れ
580 ：名無しさん ：2001/05/02(水) 10:57: 外野は黙ってろなんてイチローに失礼です
581 ：川崎麻世 ：2001/05/02(水) 12:55: カイヤは黙ってろ
582 ：名無しさん＠お腹いっぱい。 ：2001/05/02(水) 19:57: サイヤ人は黙ってろ
583 ：名無しさん＠お腹いっぱい。 ：2001/05/04(金) 06:39: >>571
rpm はアーキテクチャが noarch だとマズい理由でもあるの？がいしゅつ？
584 ：名無しさん＠お腹いっぱい。 ：2001/05/04(金) 07:17: >>583
多分問題無いと思うよ。
src.rpmもあるんだからどうでもいいじゃん。
585 ：名無しさん＠Ｅｍａｃｓ ：2001/05/05(土) 07:24: >>584
とりあえずアドバイスに従いアーキテクチャを気にせずに
インストールしてみました。
う～ん、便利♪
586 ：571 ：2001/05/05(土) 12:30: あ痛、問題無いんですか。
ｽﾏｿ…
587 ：名無しさん＠Ｅｍａｃｓ ：2001/05/05(土) 15:28: ご苦労様です。rpm -Uしました。
色が付いていい感じです。
588 ：571=586 ：2001/05/05(土) 17:48: お礼忘れてました。
私には分かりませんでした。代わりに答えてくださって
ありがとうございました>>584さん。
589 ：名無しさん＠Ｅｍａｃｓ ：2001/05/05(土) 22:01: navi2ch マンセー。
590 ：名無しさん＠お腹いっぱい。 ：2001/05/06(日) 02:27: マンセー
591 ：名無しさん＠お腹いっぱい。 ：2001/05/06(日) 03:10: 引用の部分に色が付かないのは私だけでしょうか?
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
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
609 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 02:01: aa
610 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 02:02: なんの試験
611 ：遅れました。 ：2001/05/09(水) 15:33: http://navi2ch.tripod.co.jp/navi2ch-010508-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010508-1.nosrc.rpm
612 ：名無しさん＠Ｅｍａｃｓ ：2001/05/09(水) 15:58: どうもです
613 ：611＠Ｅｍａｃｓ ：2001/05/09(水) 17:19: >>612
早っ(藁
614 ：こんなんどう？ ：2001/05/10(木) 00:23: M-x set-face-foreground を使って色の変更できたんだけど
.emacs での設定の仕方がわからなかったのでそのままはります、御免。

;;; navi2ch-face.el --- face definitions for navi2ch

; ....略

(defface navi2ch-list-category-face
'((((class color) (background light)) (:foreground "forestgreen" :bold t)))
"カテゴリの face"
:group 'navi2ch-face)

(defface navi2ch-list-board-name-face
'((((class color) (background light)) (:foreground "purple3")))
"板名の face"
:group 'navi2ch-face)

(defface navi2ch-bm-unread-face
'((((class color) (background light)) (:foreground "black")))
"読んでないスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-view-face
'((((class color) (background light)) (:foreground "tomato2")))
"表示しているスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-cache-face
'((((class color) (background light)) (:foreground "tomato3")))
"読んだ事があるスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-update-face
'((((class color) (background light)) (:foreground "red2")))
"更新したスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-mark-face
'((((class color) (background light)) (:foreground "red3")))
"マークしたスレの face"
:group 'navi2ch-face)

(defface navi2ch-article-header-face
'((((class color) (background light)) (:foreground "purple4" :bold t)))
"ヘッダの From とかの部分の face"
:group 'navi2ch-face)

(defface navi2ch-article-header-contents-face
'((((class color) (background light)) (:foreground "MediumSeaGreen")))
"ヘッダの内容の方の face"
:group 'navi2ch-face)

(defface navi2ch-article-link-face
'((((class color) (background light)) (:foreground "blue3" :bold t)))
"同じスレ中へのリンクの face"
:group 'navi2ch-face)

(defface navi2ch-article-url-face
'((((class color) (background light)) (:foreground "blue3" :bold t)))
"url の face"
:group 'navi2ch-face)

(defface navi2ch-article-citation-face
'((((class color) (background light)) (:foreground "magenta3")))
"引用の face"
:group 'navi2ch-face)

; .... 略
615 ：名無しさん＠お腹いっぱい。 ：2001/05/10(木) 00:32: >>614
??
customize-face じゃ駄目なの??
616 ：570 ：2001/05/10(木) 16:31: >>603
サンクス

ところで、
(add-hook 'navi2ch-article-arrange-message-functions 'smiley-region)
が、効いてない？？
617 ：名無しさん＠お腹いっぱい。 ：2001/05/13(日) 14:51: 荒らしが増えたからあぼーん機能を使う機会ができたよ（笑）
これは便利だ。
618 ：：2001/05/15(火) 02:54
619 ：z ：2001/05/15(火) 02:55: z
620 ：名無しさん＠お腹いっぱい。 ：2001/05/16(水) 20:01: navi2ch bordで何故か^M（改行コード？）がタイトルに入ってるスレがあって
それを読もうとするとemacsごと落ちる
他にはいません？
621 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 08:58: それはあり得るね
ブラウザ側で痴漢するしかないでしょ
622 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 10:08: なぜかラーメン板でスレッドを見ようとすると

wrong argument; stringp nil

と言われて怒られてしまいます。(setq debug-on-error t) すると、

Signaling: (wrong-type-argument stringp nil)
string-to-number(nil)
navi2ch-article-update-file(((time . "Wed, 16 May 2001 12:07:01 GMT") (nil) (name . "\xd2e9\xd0bc\xd2e1\xd2f3") (uri . "http://mentai.2ch.net/ramen/") (id . "ramen")) ((subject . "\xdcf1\xe33b\xd1b4\xdce6\xe07e\xd8e8\xd224\xd24e\xd2e9\xd0bc\xd2e1\xd2f3") (response . "1") (artid . "990014819")) nil)
navi2ch-article-sync(nil first)
navi2ch-article-view-article(((time . "Wed, 16 May 2001 12:07:01 GMT") (nil) (name . "\xd2e9\xd0bc\xd2e1\xd2f3") (uri . "http://mentai.2ch.net/ramen/") (id . "ramen")) ((subject . "\xdcf1\xe33b\xd1b4\xdce6\xe07e\xd8e8\xd224\xd24e\xd2e9\xd0bc\xd2e1\xd2f3") (response . "1") (artid . "990014819")) nil)
navi2ch-bm-select-article(nil)
call-interactively(navi2ch-bm-select-article)

こーんな感じになります。
623 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 12:41: >>622
> なぜかラーメン板でスレッドを見ようとすると
>
> wrong argument; stringp nil
>
> と言われて怒られてしまいます。(setq debug-on-error t) すると、

おなじことが、不倫板でもおこりました。
624 ：あぼーん ：2001/05/17(木) 19:39: あぼーん
625 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 09:57: FreeBSD の ports 記念 age
626 ：名無しさん＠ＸＥｍａｃｓ ：2001/05/19(土) 13:11: ports を cvsup かけて驚き. ありがとうフジシマサン.
627 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 14:19: $(B$F$9$H(B
628 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 15:06: age
629 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:20: >>595
> > ブックマークに登録するときは、何かメッセージを返して欲しい。
> やっときました。

board のブックマークへの登録時にもメッセージを返すようにしてちょ。
630 ：名無しさん＠Ｅｍａｃｓ ：2001/05/20(日) 02:22: スレを選んでRETすると、article 1-100と、最新の
articleが表示されますけど、全部読むには
どうしたらいいんでしょうか。
C-h b RET して Binding見たんですけど良くわかりませんでした。
631 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:34: article-modeで r 押してその後 0 でOK
632 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:42: > article-modeで r 押してその後 0
おお、出来ました。すばらしい。
navi2ch最高です。
633 ：名無しさん＠Ｅｍａｃｓ ：2001/05/20(日) 11:44: >>632
README 読め。いろいろと発見があって楽しい。
634 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 21:44: >>632
で、慣れてきたら navi2ch-vars.el 読んでカスタマイズだ。
635 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 23:01: 　　　　　　　　　／￣￣￣￣￣
　　　　　　　　　 |　はやくこの板が
　　　　　　　　　 |　　あらし厨房だらけになって
　　　　,＿＿　　　　　| 　　　逝ってくれますように
　　／　　.／＼　　　＼＿＿＿＿＿
　／　　.／( ・ ).＼　　　　　　o〇　　　　ヾ!;;;::iii|//"
／_____／ .（´ｰ｀）　,＼　　 ∧∧　　　　　　　 |;;;;::iii|/ﾞ
￣|| || || ||. |っ￠..||￣　　（,,　　）　ﾅﾑﾅﾑ　　 |;;;;::iii|
　 || || || ||./,,,　|ゝ iii~ 　　⊂　　ヾｗｗｗｊｊｒｊｗw!;;;;::iii|ｊｗｊｊｒｊｗw〃
　 |￣￣￣|~~凸（￣）凸　.（　　,,）～　ｗｊｗｊｊｒｊ从ｊｗｗｊｗｊｊｒｊ从ｊｒ
636 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 14:35: xxxxx.datを取り込んで、加工する前にhookが欲しいかな。
自作filterを咬ましたいんで、

で、その、plugin スペックもあるといいかも。

ageとこ
637 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 15:15: GNU emacs21 でもモナーフォント使えないかなぁ。
XEmacs21 のコードではダメっぽかった。

自力で対処できるスキルがないので sage
638 ：636 ：2001/05/23(水) 19:56: 例えば、自作自演filterとかね。(checkしてないので、間違ってると、ちょっと鬱)

$no = 0;
foreach (<STDIN>)
{
$data = $_;
@elm = split (/<>/,$data);
$elm[2] =~ m#.*ID:(.*)#;
$id = $1;
$no++;
next if ($id =~ m#\?\?\?#);
@t = ($no,\@elm);
push (@{$info{$id}},\@t);
}
foreach $id (by_freq (\%info))
{
......
}

sub by_freq
{
my $i = shift;
my $t;
foreach (keys (%$i))
{
$t{$_} = $#{$$i{$_}};
}
sort
{
$t{$b} <=> $t{$a};
} (keys (%t));
}
639 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 20:43: 時々、レス番号 1 以外表示されなくなるスレッドがあるんだけど、どうすりゃいいの
かな。一旦終了して xxx.dat と info/xxx を消せばなおるんだけど、面倒臭いから
「指定したスレッドの dat、info、関連バッファ及び変数をすべて消去」
するコマンドが欲しい。
640 ：431 ：2001/05/23(水) 23:53: >>637
> GNU emacs21 でもモナーフォント使えないかなぁ。
> XEmacs21 のコードではダメっぽかった。
>
> 自力で対処できるスキルがないので sage

がんばれー。

おれもlisp全然駄目だったけど、
Infoやnavi2chのソースやら他のelisp読みまくって
作者様に取り込んでもらえるようになったんだぞー。
# その節はどうも>(not 1)さん

要はやる気次第だぞ。
例え数行のコードでも自分の書いたモノが
他人の役に立つのは嬉しいもんだろ。

# つーか、そもそもこんなん、大してスキルなんて必要ないし。
# 自分では手許にEmacs21無くて手出せないんで、sage。
641 ：名無しさん＠お腹いっぱい。 ：2001/05/24(木) 08:54: >>639
C-u S
or
C-u s
で駄目か？
642 ：名無しさん＠お腹いっぱい。 ：2001/05/24(木) 19:43: xemacs とか emacs21 のツールバーで操作できるようになるとうれしい。
643 ：名無しさん＠XEmacs ：2001/05/24(木) 20:57: 初めてちゃんと使ってみたよ。
かなり快適だ。
動作報告。
XEmacs 21.4 (patch 3) "Academic Rigor" [Lucid] (sparc-sun-solaris2.8, Mule)

多謝。 > 作者
644 ：637 ：2001/05/25(金) 06:44: >>640
ううむ、やっぱ自力でがんばらないとダメっすか。
ぼちぼち info を読みながら、できるところまでがんばってみることにします。

>>642
そうそう、ツールバーがあるとカコイイですよね。
他に、個人的にあると良さそうだなという機能として...

* scoreing 機能
* Namazu による index 作成/検索

なんてのを妄想してます。この辺もゆっくり考えてみよう。
645 ：名無しさん＠Ｅｍａｃｓ ：2001/05/25(金) 15:19: navi2ch-*.el をポチポチと読んでみてる。
いろいろと発見があって楽しい。
646 ：名無しさん＠Xemacs ：2001/05/25(金) 17:30: 書き込みテストをかねて感謝。
XEmacs21.1.14 "Cuyahoga Valley"で動作中。
647 ：emacs21.0.102 ：2001/05/25(金) 17:31: 動いてまっせー。
648 ：emacs21.0.103 ：2001/05/26(土) 13:16: マンセー
649 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:29: ちゃんとマニュアル通にインストールして、
設定ファイルに書いたのに
M-x navi2ch でnomach
650 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:42: >>649
パスが通っていないのでは？
651 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:51: >>650
どう通すの？
とりあえずマニュアル通りの事はちゃんとやったけど。
652 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 14:19: >>651
(setq load-path
(append
(list "/usr/local/share/emacs/site-lisp")
load-path))
…みたいな感じで。っていうか、マニュアルを読んでないので、
見当ちがいかも。
653 ：649=651 ：2001/05/26(土) 14:35: >>652
Vine Linux2.1.5なんですが、>>253を参考にして解決。
emacsがインストールされているディレクトリが
/usr/share/emacsなのに、そのままmake installすると
/usr/local/share/emacs/site-lispに展開されてました。

mv /usr/local/share/emacs/site-lisp/navi2ch* /usr/share/emacs/site-lisp

とやったら、とりあえず動きました。
~/.emacs.elに(require 'navi2ch)ってだけしか書いてないけど
>>652みたいにしたほうがいいんですか？
ちなみに、これ、navi2chで書いてまふ。
654 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 14:49: >>653
> >>652みたいにしたほうがいいんですか？
いいえ。もうしないで大丈夫です。
655 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 15:00: >>653
せっかく >>611 があるのに‥‥。
656 ：名無３ ：2001/05/26(土) 16:14: monafontをnavi2chで使う方法を教えてくらさい
657 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 16:43: >>656
過去レス読め。
658 ：名無３ ：2001/05/26(土) 16:53: >>657
> >>656
> 過去レス読め。
めんどうです。

まぁ、、これでスレが立てられればもう
VM割れから完全移行出来るんだけどな。。。
659 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 18:05: レスが500くらいのスレ見たとして、
1から100まで見て、次のレスがいきなり500だったりするんだけど、
これはバグじゃないよね？表示させる方法があるの？
過去ログもざっと見てみたが、、見落としてたらスマソ
660 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 18:14: >>659
>>630-631 を参照。

次100 最新50 (10:00PM - 03:00AM の間一気に全部は読めません)

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