レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 5)

1 ：名無しさん＠お腹いっぱい。 ：02/02/12 04:50

Emacsenで動く2ch用ブラウザ、Navi2chスレッドpart 5です。

* Navi2ch Project Home Page
http://navi2ch.sourceforge.net/

>>2 リンク、過去スレッド

2 ：名無しさん＠お腹いっぱい。 ：02/02/12 04:51

リンク
* 作者の(not 1)さんのページ
http://www.geocities.co.jp/SiliconValley-Oakland/7673/
* hc2ivan's webpage
http://www18.tok2.com/home/navi2ch/
* navi2ch rpm
http://members.tripod.co.jp/~navi2ch/
* Mona fonts (モナーフォント)
http://members.tripod.co.jp/s42335/mona/

過去スレッド
* 過去ログ その4 (前スレ)
http://pc.2ch.net/test/read.cgi/unix/1009340234/
* 過去ログ その3
http://pc.2ch.net/unix/kako/999//999166513.html
* 過去ログ その2
http://pc.2ch.net/test/read.cgi/unix/996244120/
* 過去ログ その1
http://cocoa.2ch.net/unix/kako/976/976032951.html

3 ：名無しさん＠ＸＥｍａｃｓ ：02/02/12 11:50

2ゲット、ズサー

4 ：名無しさん＠Ｅｍａｃｓ ：02/02/12 13:11

>>3
残念でした（ｗ

5 ：名無しさん＠お腹いっぱい。 ：02/02/12 16:09

>1 乙彼

6 ：287@part4 ：02/02/13 03:38

前スレ 968 さんのパッチ、CVS にあてときました。

7 ：名無しさん＠お腹いっぱい。 ：02/02/13 09:28

最近スレが更新されていないのに U になることが多いので
不思議に思っていたのですが、もしかしてスレのカーソル位置
が最後のスレにないと更新扱いになるのでしょうか。

最後の一画面は、わざわざカーソルを最後のスレまで移動させる
ことが少ないので、もうしそうなら自分には不便ですね。更新
フラグという意味合いからも少しずれてしまいますし。

8 ：名無しさん＠Ｅｍａｃｓ ：02/02/13 09:35

くだらない質問で申し訳ないのですが、
navi2chの板一覧が表示されません。

デスクトップもノートもRedhat7.2です。
どちらにもnavi2ch 1.5.1を入れています。
ノートの方は一覧が表示されますが、
デスクトップの方には表示されないのです。

どうすればいいんでしょう？

9 ：名無しさん＠お腹いっぱい。 ：02/02/13 13:15

>>8

(setq navi2ch-list-bbstable-url "http://www.2ch.net/2chmenu.html")

でないかい？

10 ：8 ：02/02/13 13:20

>>9
できました、サンクス。

11 ：名無しさん＠お腹いっぱい。 ：02/02/13 14:18

要望いいですか？

「履歴」と同じ扱いで、自分がポストしたスレが自動的に登録されて
いくような履歴があったら便利だと思うのですが、どうでしょうか。

12 ：名無しさん＠お腹いっぱい。 ：02/02/13 15:06

以前はオフライン時でも、レスを書き込んだときは更新
されたような気がするのですが、設定で今でもこのよう
な動作にできますか?

13 ：名無しさん＠Ｅｍａｃｓ ：02/02/13 18:46

http://sourceforge.net/tracker/index.php?func=detail&aid=507328&group_id=39552&atid=435775
へのパッチ案です。

(defcustom navi2ch-bm-ask-directory-only-when-textize t
"*non-nil なら、スレを保存するときにディレクトリのみ入力させる。"
:type 'boolean
:group 'navi2ch-board)
を、navi2ch-vars.elへ、

(when (not navi2ch-on-xemacs)
(defalias 'read-directory-name 'read-file-name))
を、どこか適当な所へ
それぞれ加えて、あとは以下のパッチをあててください。

--- navi2ch-board-misc.el.orig Wed Feb 13 18:32:08 2002
+++ navi2ch-board-misc.el Wed Feb 13 18:33:01 2002
@@ -362,11 +362,15 @@
(navi2ch-bm-insert-state item 'update)))))
(message "can't select this line!"))))

-(defun navi2ch-bm-textize-article (directory &optional buffer)
- (interactive "Ddirectory: ")
+(defun navi2ch-bm-textize-article (&optional directory buffer)
+ (interactive)
(let* ((navi2ch-article-view-range nil)
(navi2ch-article-auto-range nil)
- window)
+ window file)
+ (when (null directory)
+ (if navi2ch-bm-ask-directory-only-when-textize
+ (setq directory (read-directory-name "Directory: ")))
+ (setq file (expand-file-name (read-file-name "File: "))))
(setq window (selected-window))
(navi2ch-bm-display-article)
(select-window (get-buffer-window (navi2ch-article-current-buffer)))
@@ -376,16 +380,18 @@
(let* ((article navi2ch-article-current-article)
(board navi2ch-article-current-board)
(id (cdr (assq 'id board)))
- (file (format "%s_%s.txt" id (cdr (assq 'artid article))))
(subject (cdr (assq 'subject article))))
- (and buffer
- (save-excursion
- (set-buffer buffer)
- (goto-char (point-max))
- (insert (format "<a href=\"%s\">%s</a><br>\n" file subject))))
+ (when (null file)
+ (setq file (expand-file-name
+ (format "%s_%s.txt" id (cdr (assq 'artid article)))
+ directory)))
+ (when buffer
+ (save-excursion
+ (set-buffer buffer)
+ (goto-char (point-max))
+ (insert (format "<a href=\"%s\">%s</a><br>\n" file subject))))
(let ((coding-system-for-write navi2ch-coding-system))
- (navi2ch-write-region (point-min) (point-max)
- (expand-file-name file directory))))
+ (navi2ch-write-region (point-min) (point-max) file)))
(select-window window)))

14 ：名無しさん＠お腹いっぱい。 ：02/02/13 20:01

最新版 q で終了できなくなってないですか？

15 ：名無しさん＠お腹いっぱい。 ：02/02/13 20:16

>>14
できてますよ。

16 ：名無しさん＠ＸＥｍａｃｓ ：02/02/13 20:52

昨日 cvs で取ってきて navi2ch をいれなおしたところ

(1) (initialization/error) An error has occurred while loading ~/.emacs:

Symbol's function definition is void: base64-decode-string

とかいわれてしまいます。これなんでしょう。
xemacs 21.1.14 です。

17 ：名無しさん ：02/02/13 20:52

14の navi2ch-ask-when-exit の設定がおかしいに一票

18 ：mami ：02/02/13 21:59

>>14
直しました。

19 ：mami ：02/02/13 22:18

>>11
こんなんでどうでしょ。
(add-hook 'navi2ch-message-after-send-hook
(lambda ()
(navi2ch-bookmark-add "posted"
navi2ch-message-current-board
navi2ch-message-current-article)))

20 ：mami ：02/02/13 22:20

>>13
すみません、手をつけれてませんでした。
見ておきます。

21 ：前スレッド 961 ：02/02/13 22:34

part4 で XEmacs で mona font で表示されない、と完全他力本願モードで書
いたんですが、まだ直ってないみたいなので、ちょっと調べてみました。(あ
んまり自信ないんで間違ってたらごめんなさいです)

M-x customize-face で face の状態を見てみると、
navi-2ch-mona16-face,navi-2ch-mona14-face,navi-2ch-mona12-face はちゃ
んとしてますが、navi2ch-mona-face が mona font になってませんでした。

んで、navi2ch-mona.el をおっかけてみたら、関数
navi2ch-mona-set-mona-face の中 (L199) の (facep parent) が nil を返す
ようです。(なので、そのあとの (set-face-parent 'navi2ch-mona-face
parent) が実行されない)

ちなみに、Emacs 21 でもときどき変になるんですが、ここの (facep parent)
が [face unspecified unspecified unspecified unspecified unspecified
unspecified unspecified unspecified unspecified unspecified
unspecified ...] なんていう変な値を返すせいでしょうか?

22 ：21 ：02/02/13 22:40

追加。

試しに、199 行目の (when (facep parent) をコメントアウトしてみたら、
mona font で表示できるようになりました。

23 ：13 ：02/02/14 03:16

>>20
まあ、叩き台ってことで。
あと、
(when (not navi2ch-on-xemacs)
(defalias 'read-directory-name 'read-file-name))
はよろしくないかも。やるなら、
(unless (fboundp 'read-directory-name)
(defalias 'read-directory-name 'read-file-name))
かな。もしくは
(if (fboundp 'read-directory-name)
(defalias 'navi2ch-read-directory-name 'read-directory-name)
(defalias 'navi2ch-read-directory-name 'read-file-name))
とかしたほうが副作用が少なさそう。

24 ：名無しさん＠お腹いっぱい。 ：02/02/14 18:05

まちBBSって見れないんだっけ？

25 ：名無しさん＠お腹いっぱい。 ：02/02/14 19:38

>>24
はい

26 ：21/22 ：02/02/14 22:09

せっかく facep で face かどうか調べている(みたい)なのにコメントアウト
しちゃうのもどうかと思ったので、find-face を使ってみたパッチ。
(FSF-Emacs だと apel が必要みたい)

とりあえず、手もとの XEmacs 21.5.4 と Emacs 21.2.50 (いずれも cvs の先
端のやつ) では問題なく動いてます。

--- master/navi2ch/navi2ch-mona.el Wed Feb 13 22:44:03 2002
+++ work/navi2ch/navi2ch-mona.el Thu Feb 14 21:54:01 2002
@@ -196,7 +196,7 @@
(format "navi2ch-mona%d-face" height)
"navi2ch-mona16-face")))
(setq parent (intern face-name))))
- (when (facep parent)
+ (when (find-face parent)
(cond (navi2ch-on-xemacs
(set-face-parent 'navi2ch-mona-face parent))
(navi2ch-on-emacs21

27 ：knok ：02/02/15 15:23

>>26
apel をみると find-face は短かかったので、navi2ch-mona.el に
含めてパッチを適用しました。
apel は GPL だしその旨書いたので問題ないですよね...

28 ：名無しさん＠お腹いっぱい。 ：02/02/15 15:28

lisp まったく分からないんですが、XEmacs で monafont が
また使えるようになったんですね？

29 ：knok ：02/02/15 15:53

つかえると思います。自分が確認した範囲ではちゃんと見えました。

30 ：knok ：02/02/15 17:20

大事なことを言いわすれました。
>>26 さんどうもありがとうございます。

31 ：名無しさん＠お腹いっぱい。 ：02/02/15 17:33

>>27
find-face を定義してる defun-maybe も
apel 入れてないと使えないっす。

32 ：knok ：02/02/15 18:07

とりあえず
(if (not navi2ch-on-xemacs)
(defun-maybe ...))
と囲んであるんですが、これじゃダメですかね?

33 ：名無しさん＠お腹いっぱい。 ：02/02/15 18:52

>>32
うーん、うちは emacs-21.1.90 で
(setq navi2ch-mona-enable t)
(setq navi2ch-mona-face-variable 'navi2ch-mona16-face)
なんだけど、facep の頃から特に問題なくモナフォントで
表示されてたです。

34 ：名無しさん＠お腹いっぱい。 ：02/02/15 19:37

XEmacs 使ってるんですが、mona fonts のフォントサイズって
手動でどうやって変更すればいいんですか？
なんか mona fonts まわりが大幅に変わってるんで
よく分からないです。。。

35 ：26 ：02/02/15 19:41

>>27
ふと思ったのですが、(featurep 'poe) が nil になるときだけ定義する
ようにしたらどうでしょう?

# とりあえず、うちの FSF Emacs 21.2.50 では、apel がはいっていても起動
# 時に (void-variable find-face) でエラーになったので、再定義されてい
# るところを消してしまいましたが(^^;

>>33
(facep 'navi2ch-mona16-face) は何を返しますか?

本来なら t が返ってくるのが期待されているはずなのですが、うちでは t で
はないが no-nil ではあるような変な値を返していました。(なので FSF
Emacs 21 での表示はできてました)

36 ：knok ：02/02/15 20:06

(if (and (not (featurep 'poe)) (not navi2ch-on-xemacs))
(defun ...))
こういう感じですかね?

37 ：34 ：02/02/15 22:35

すまそ、フォントって .xemacs.el や init.el を
書き換えて load し直しても、XEmacs 自体を
再起動しないと有効にならんのね。
お騒がせしました。

38 ：33 ：02/02/15 22:40

>>35
うちでも (facep 'navi2ch-mona16-face) は t でない値が返ってきた。
でも、

facep is a compiled Lisp function in `faces'.
(facep FACE)

Return non-nil if FACE is a face name.

とのことなんで、non-nil だったら ok なんじゃないかな。
emacs21 なら facep、XEmacs なら find-face にする、で
いいのかも。

39 ：26 ：02/02/15 22:41

>>36
はい。そんな感じで apel (poe) がインストールされていない FSF Emacs 21
のときだけ再定義されるようにした方が良いと思います。

40 ：33 ：02/02/15 22:47

(facep 'navi2ch-mona16-face) は
[face "mona-gothic" normal 154 normal normal unspecified unspecified unspecified unspecified unspecified unspecified ...]
になってた。

41 ：名無しさん＠お腹いっぱい。 ：02/02/15 22:55

XEmacs で最新の CVS 使ってますが、
Wrong type argument: stringp, nil が出て
どの板にもいっさい入れません‥‥。

42 ：knok ：02/02/15 23:38

>>39
これで commit しておきました。
>>41
http://www.jpl.org/elips/BUGS-ja.html
これを参考に、backtrace をとってみるとどうですかね。
どの辺で問題が起きているかがわかれば対処できるかも。

43 ：41 ：02/02/15 23:51

>>42
こんなんでよろしいでしょうか‥‥。

Signaling: (wrong-type-argument stringp nil)
file-exists-p(nil)
navi2ch-board-expire()
run-hooks(navi2ch-board-expire)
navi2ch-board-select-board(((name . "ニュース速報") (uri . "http://choco.2ch.net/news/") (id . "news") (type . board) (seen)) nil)
navi2ch-bm-select-board(((name . "ニュース速報") (uri . "http://choco.2ch.net/news/") (id . "news") (type . board) (seen)) nil)
navi2ch-list-select-board(((name . "ニュース速報") (uri . "http://choco.2ch.net/news/") (id . "news") (type . board) (seen)) nil)
navi2ch-list-select-current-board(nil)
call-interactively(navi2ch-list-select-current-board)

44 ：26 ：02/02/15 23:58

>>38
あ、FSF Emacs では t ではないのが正解なのですね。XEmacs では

`facep' is a built-in function
(facep OBJECT)

Documentation:
Return t if OBJECT is a face.

なんで混乱してました。

>>40
うちの Emacs 21.2.50 では
(facep 'navi2ch-mona16-face)
[face unspecified unspecified unspecified unspecified unspecified unspecified unspecified unspecified unspecified unspecified unspecified ...]
なんです。(何か変)

> emacs21 なら facep、XEmacs なら find-face にする、で
> いいのかも。

それでいいような気もしてきました。(さらに安全のために Emacs 21 でも
apel がインストールされていたら find-face にするとか)

45 ：名無しさん＠お腹いっぱい。 ：02/02/16 00:12

>>36

(if (and (not (featurep 'poe)) (not navi2ch-on-xemacs)) ...)
よりも、単純に、
(unless (fboundp 'find-face) ...)
のほうがいいんじゃない?
将来FSF Emacsにfind-faceが、別の定義で実装されないという保証はないわけだし。

まあ、find-faceなんていう名前の関数を外部パッケージが定義しちゃってる
のが問題のような気もするんだけど。

46 ：名無しさん＠お腹いっぱい。 ：02/02/16 00:25

S でブックーマークを並び変えた後、それを保存するにはどうすればいいんでしょうか？

47 ：41 ：02/02/16 01:53

.xemacs.el にある

(add-hook 'navi2ch-board-select-board-hook 'navi2ch-board-expire)

をコメントアウトしたらとりあえず板に入ることは
できるようになったんですが、この add-hook がなくても
navi2ch-board-expire って有効になるものですか？
なんか教えて君みたいになってて心苦しいですが。。。

48 ：名無しさん＠お腹いっぱい。 ：02/02/16 13:17

標準状態では、うちの Emacs 21 で Delete キーでスクロールできないので、
↓以下のようにして頂けると、助かります。

--- master/navi2ch/navi2ch-article.el Thu Feb 14 18:19:45 2002
+++ work/navi2ch/navi2ch-article.el Sat Feb 16 13:06:15 2002
@@ -42,6 +42,7 @@
(define-key map " " 'navi2ch-article-scroll-up)
(define-key map [del] 'navi2ch-article-scroll-down)
(define-key map [backspace] 'navi2ch-article-scroll-down)
+ (define-key map "\C-d" 'navi2ch-article-scroll-down)
(define-key map "\177" 'navi2ch-article-scroll-down)
(define-key map "w" 'navi2ch-article-write-message)
(define-key map "W" 'navi2ch-article-write-sage-message)

49 ：名無しさん＠お腹いっぱい。 ：02/02/16 14:18

>>48
DeleteキーでC-dを吐く設定の方がおかしいような。。。

50 ：48 ：02/02/16 14:35

>>49
いや、私もそう思うんですけど、emacs -q でも C-h-k-DEL すると C-d 吐い
てることになってるんですよ。(こんなのは Emacs-21.x だけですが)

51 ：名無しさん＠お腹いっぱい。 ：02/02/16 14:50

>>47
hook で自動的に exipre を呼ばないだけで、
Board mode で ESC e で明示的に expire できるよ。
(´-`).｡ｏＯ(expire で問題が起きるのはなんでだろう？)

52 ：名無しさん＠お腹いっぱい。 ：02/02/16 14:59

>>50
Emacs 20.xやshellだとDELは^Hか^?を吐くの?

53 ：名無しさん＠お腹いっぱい。 ：02/02/16 16:19

前スレでちょこっとした、navi2ch-bm-fetch-articleの戻り値の話です。

navi2ch-bookmark-fetch-articleで
(setq state (navi2ch-bm-fetch-article max-line)) としてる割には
navi2ch-bm-fetch-articleは、nilか"can't select this line!"
しか返さないので、新たなfetchがあったか判断できません。

navi2ch-bm-fetch-article がstateの値を返してくれるとありがたいです。
一応パッチ。

--- navi2ch-board-misc.el.orig Sat Feb 16 16:15:54 2002
+++ navi2ch-board-misc.el Sat Feb 16 16:16:46 2002
@@ -360,7 +360,8 @@
(let ((buffer-read-only nil))
(save-excursion
(navi2ch-bm-insert-state item 'update)))))
- (message "can't select this line!"))))
+ (message "can't select this line!"))
+ state))

(defun navi2ch-bm-textize-article (directory &optional buffer)
(interactive "Ddirectory: ")

54 ：48 ：02/02/16 16:51

>>52
Emacs-20.7 とか XEmacs では DEL は DEL として認識されてます。

(x)emacs -q で起動して C-h-k-DEL した結果

XEmacs-21.5.4: DEL runs `backward-or-forward-delete-char'
Emacs-20.7: DEL runs the command backward-delete-char-untabify
Emacs-21.1 以降: C-d runs the command delete-char

ただ、emacs -nw だと DEL で認識されているみたい。もうちょっと調べてみます。

55 ：41 ：02/02/16 17:56

>>51
そうですか。どうもありがとうございます。
とりあえずこれでやり過すことにします。

56 ：48 ：02/02/16 19:32

>>54
もう少し調べた結果。

etc/NEWS より
: * Changes in Emacs 21.1
(中略)
: ** The default binding of the Delete key has changed.
:
: The new user-option `normal-erase-is-backspace' can be set to
: determine the effect of the Delete and Backspace function keys.
:
: On window systems, the default value of this option is chosen
: according to the keyboard used. If the keyboard has both a Backspace
: key and a Delete key, and both are mapped to their usual meanings, the
: option's default value is set to t, so that Backspace can be used to
: delete backward, and Delete can be used to delete forward. On
: keyboards which either have only one key (usually labeled DEL), or two
: keys DEL and BS which produce the same effect, the option's value is
: set to nil, and these keys delete backward.
:
: If not running under a window system, setting this option accomplishes
: a similar effect by mapping C-h, which is usually generated by the
: Backspace key, to DEL, and by mapping DEL to C-d via
: `keyboard-translate'. The former functionality of C-h is available on
: the F1 key. You should probably not use this setting on a text-only
: terminal if you don't have both Backspace, Delete and F1 keys.
:
: Programmatically, you can call function normal-erase-is-backspace-mode
: to toggle the behavior of the Delete and Backspace keys.

で、normal-erase-is-backspace-mode を実行すれば DEL が DEL として認識
されることはわかりました。

# で、どうするのがいいんでしょうね??^^;;

57 ：名無しさん＠Ｅｍａｃｓ ：02/02/16 21:27

http://game.2ch.net/test/read.cgi/famicom/1013785133/
が読めないのって俺だけですか？
fileの読み込みは成功している(less等では見れる)のだがnavi2chだと
何故か嵌ってしまう。Emacs21.1+navi2ch1.5.1です。

58 ：名無しさん＠お腹いっぱい。 ：02/02/16 21:31

>>57
たぶんEmacs 21.1の不具合。Emacs 20.xやEmacs 21.1.90とかなら大丈夫なはず。
;; FAQに追加したほうがいいかも。

59 ：名無しさん＠お腹いっぱい。 ：02/02/16 21:57

>>57

うわぁ!ほとんどブラクラだよ!!
emacsが死ぬ!

60 ：57 ：02/02/17 02:56

そっかEmacs21.1がよろしくないのね。thanx!
…が、21.1.90ってのが見つからん。cvsから引いてくるか。

61 ：名無しさん＠お腹いっぱい。 ：02/02/17 06:48

>>60
> …が、21.1.90ってのが見つからん。cvsから引いてくるか。
Emacs 21.2のbeta。ftp://alpha.gnu.org/gnu/emacs/にあるよ。

62 ：名無しさん＠お腹いっぱい。 ：02/02/17 18:28

navi2ch-vars.el の

(when navi2ch-mona-enable
(add-hook 'navi2ch-load-hook
(lambda () (load "navi2ch-mona")))))
この箇所、

(setq navi2ch-mona-enable t)
(require 'navi2ch)
の順番だと ok なんだけど、

(require 'navi2ch)
(setq navi2ch-mona-enable t)
だと、navi2ch-load-hook が実行されたあとで
navi2ch-mona-enable が t になるので、
navi2ch-mona がロードされないみたい。

~/.navi2ch/init.el を読み込んだ後で、
navi2ch-mona をロードするかどうかを決めるように
してもらえないかな？

63 ：mami ：02/02/18 00:00

>>62
単に順番を変えるだけだと、
特定の板だけモナーフォントを使いたいときは
navi2ch-mona-enable は nil なんで困りますね。
現状だとフォントまわりの設定が済んだら
(require 'navi2ch-mona) してね、
になっちゃうのかな。
; うちの init.el で先に require してて、
; さっきまで2時間くらい悩んだです。

フォントサイズの指定ですが、
(setq navi2ch-mona-face-variable 'navi2ch-mona16-face)
よりも、下のパッチをあてて
(setq navi2ch-mona-font-height 16)
てな感じの方がわかりやすいんじゃないでしょうか。
どうでしょ? >users & developers

--- navi2ch-mona.el.orig Sun Feb 17 22:44:17 2002
+++ navi2ch-mona.el Sun Feb 17 23:40:53 2002
@@ -191,6 +191,14 @@
:initialize 'custom-initialize-default
:group 'navi2ch-mona)

+(defcustom navi2ch-mona-font-height nil
+ "*モナーフォントのサイズ数。
+nil だとデフォルトのフォントと同じサイズの face を自動選択。"
+ :type '(choice (const :tag "12 ドット" 12)
+ (const :tag "14 ドット" 14)
+ (const :tag "16 ドット" 16))
+ :group 'navi2ch-mona)
+
;; defun find-face for GNU Emacs
;; the code is originated from apel.
(if (and (not (featurep 'poe)) (not navi2ch-on-xemacs))
@@ -205,7 +213,9 @@
(defun navi2ch-mona-set-mona-face ()
(let ((parent navi2ch-mona-face-variable))
(when (eq t parent)
- (let* ((height (cond (navi2ch-on-xemacs
+ (let* ((height (cond (navi2ch-mona-font-height
+ navi2ch-mona-font-height)
+ (navi2ch-on-xemacs
(font-height (face-font 'default)))
(navi2ch-on-emacs21
(frame-char-height))))

64 ：57 ：02/02/18 00:04

>>61
Emacs21.1.90にて読めました。これもそれで書いてます。
…が、そのスレ、もう終わってやんの(藁)

65 ：名無しさん＠お腹いっぱい。 ：02/02/18 03:15

ついさっきCVSのHEADを入れてXEmacs 21.1.14で起動しようとすると
not a base64 character
で起動しません。何か足りないでしょうか。
Emacs-20.7と21.1では起動します。
「send message...failed: 長すぎる行があります！」したのでbase64してみました。

----BEGIN BASE64----(trace.txt)
U2lnbmFsaW5nOiAoZXJyb3IgIm5vdCBhIGJhc2U2NCBjaGFyYWN0ZXIgCiIpCiAg
c2lnbmFsKGVycm9yICgibm90IGEgYmFzZTY0IGNoYXJhY3RlciBcbiIpKQogIGNl
cnJvcigibm90IGEgYmFzZTY0IGNoYXJhY3RlciAlYyIgP1xuKQogIGFwcGx5KGNl
cnJvciAoIm5vdCBhIGJhc2U2NCBjaGFyYWN0ZXIgJWMiID9cbikpCiAgZXJyb3Io
Im5vdCBhIGJhc2U2NCBjaGFyYWN0ZXIgJWMiID9cbikKICBiYXNlNjQtY2hhci10
by1udW0oP1xuKQogIGJhc2U2NC1kZWNvZGUtMSgoP1xuID95ID9JID9IKSkKICBt
YXBjb25jYXQoYmFzZTY0LWRlY29kZS0xICgoP2cgP1YgP0MgP0IpICg/VSA/SSA/
RiA/USkgKD9nID9WID9DID9CKSAoP1UgP0kgP0ggP0opICg/ZyA/ViA/QyA/Qikg
KD9VID9JID9GID9RKSAoP2cgP1YgP0MgP0IpICg/VSA/SSA/RiA/USkgKD9nID9W
ID9DID9CKSAoP1UgP0kgP0YgP0EpICg/ZyA/VSA/QSA/bykgKD9nID9VID95ID9C
KSAoP1QgP0EgP3EgP0IpICg/USA/SSA/RiA/QSkgKD9nID9VID9DID9CKSAoP1Eg
P0MgP0MgP0IpICg/XG4gP3kgP0kgP0gpICg/SSA/ZyA/VSA/QykgKD9CID9RID9J
ID9GKSAoP0EgP2cgP1cgP3EpICg/QiA/USA/SSA/RikgKD9BID9nID9VID9DKSAo
P0IgP1EgP0kgP0YpICg/QSA/ZyA/VSA/QSkgKD9vID9nID9VID95KSAoP0IgPzMg
P0MgP2kpICg/QiA/VCA/QSA/cSkgKD9CID9RID9JID9GKSAoP0EgP2cgP2IgP3kp
ICg/QiA/YSA/ZCA/XCspICg/RSA/UiA/TiA/XCspICg/QiA/diA/SSA/SCkgKD9j
ID9cbiA/ZyA/VSkgKD8yID9DID93ID9vKSAoP0ggP2YgP2cgP2QpICg/XCsgP0Ig
PzMgP3kpICg/aSA/QiA/VCA/SSkgKD9IID9jID9PID96KSAoP3MgPzcgP2cgP2Qp
ICg/XCsgP0IgPzMgPzQpICg/SCA/ZiA/QyA/bykgKD9GID9BID9nID9VKSAoP0Mg
P0IgP1EgP0kpICg/RiA/QSA/ZyA/VSkgKD9DID9CID9RID9DKSAoP0MgP0IgP1Ug
P0kpICg/RiA/USA/ZyA/VSkgKD9BID9nID9LID9JKSAoP0YgP00gP1xuID9nKSAo
P2QgP3cgP28gP2cpIC4uLikgIiIpCiAgYmFzZTY0LWRlY29kZS1zdHJpbmcoImdW
Q0JVSUZRZ1ZDQlVJSEpnVkNCVUlGUWdWQ0JVSUZRZ1ZDQlVJRkFnVUFvZ1V5QlRB
cUJRSUZBZ1VDQlFDQ0JcbnlJSElnVUNCUUlGQWdXcUJRSUZBZ1VDQlFJRkFnVUFv
Z1V5QjNDaUJUQXFCUUlGQWdieUJhZCtFUk4rQnZJSGNcbmdVMkN3b0hmZ2QrQjN5
aUJUSUhjT3pzN2dkK0IzNEhmQ29GQWdVQ0JRSUZBZ1VDQlFDQ0JVSUZRZ1VBZ0tJ
Rk1cbmdkd29nVXlCM0RzN0NvRkFnVUNCUUlGQWdVQ0JRTDNldTk2NzNyQ3dzTEN3
cnlLOTNydmVDZz09IikKICBieXRlLWNvZGUoIi4uLiIgW25hdmkyY2gtbW9uYS1z
YW1wbGUtc3RyaW5nIGN1cnJlbnQtbG9hZC1saXN0ICIbJEIlNSVzJVclayVGJS0l
OSVIJTIlQyVIJSkhKiEqGyhCIBskQiRSJGkkLCRKISIlKyU/JSslSiEiGyhCUm9t
YW4gQWxwaGFiZXQbJEIhIxsoQlxuIiBkZWNvZGUtY29kaW5nLXN0cmluZyBiYXNl
NjQtZGVjb2RlLXN0cmluZyAiZ1ZDQlVJRlFnVkNCVUlISmdWQ0JVSUZRZ1ZDQlVJ
RlFnVkNCVUlGQWdVQW9nVXlCVEFxQlFJRkFnVUNCUUNDQlxueUlISWdVQ0JRSUZB
Z1dxQlFJRkFnVUNCUUlGQWdVQW9nVXlCM0NpQlRBcUJRSUZBZ2J5QmFkK0VSTitC
dklIY1xuZ1UyQ3dvSGZnZCtCM3lpQlRJSGNPenM3Z2QrQjM0SGZDb0ZBZ1VDQlFJ
RkFnVUNCUUNDQlVJRlFnVUFnS0lGTVxuZ2R3b2dVeUIzRHM3Q29GQWdVQ0JRSUZB
Z1VDQlFMM2V1OTY3M3JDd3NMQ3dyeUs5M3J2ZUNnPT0iIHNoaWZ0X2ppc10gNCkK
ICBsb2FkLWludGVybmFsKCJuYXZpMmNoLW1vbmEiIG5pbCB0IG5pbCBlc2NhcGUt
cXVvdGVkKQogIGxvYWQoIm5hdmkyY2gtbW9uYSIgbmlsIHQgbmlsKQogIHNpOnJl
cXVpcmUobmF2aTJjaC1tb25hIG5pbCkKICByZXF1aXJlKG5hdmkyY2gtbW9uYSkK
ICAoY29uZCAoKGFuZCAuLi4gLi4uKSAocmVxdWlyZSAuLi4pIChhZGQtaG9vayAu
Li4gLi4uKSAoc2V0cSBuYXZpMmNoLW1vbmEtZW5hYmxlIHQpKSkKKQogIGxvYWQt
aW50ZXJuYWwoIn4vLm5hdmkyY2gvaW5pdCIgdCBuaWwgbmlsIHVuZGVjaWRlZCkK
ICBsb2FkKCJ+Ly5uYXZpMmNoL2luaXQiIHQpCiAgbmF2aTJjaChuaWwpCiAgY2Fs
bC1pbnRlcmFjdGl2ZWx5KG5hdmkyY2gpCiAgY29tbWFuZC1leGVjdXRlKG5hdmky
Y2ggdCkKICBleGVjdXRlLWV4dGVuZGVkLWNvbW1hbmQobmlsKQogIGNhbGwtaW50
ZXJhY3RpdmVseShleGVjdXRlLWV4dGVuZGVkLWNvbW1hbmQpCg==
----END BASE64----

66 ：名無しさん＠お腹いっぱい。 ：02/02/18 03:45

(setq navi2ch-article-auto-decode-base64-p t)にしてるんですが、
emacs -rvだと >65 のデコードされた部分が暗すぎて読みにくい…。

67 ：名無しさん＠お腹いっぱい。 ：02/02/18 10:28

(setq navi2ch-list-bbstable-url "http://www.2ch.net/2chmenu.html")
で見れないな、、、
昨日はこの設定で見れたのに。。

68 ：knok ：02/02/18 11:41

どうもそのファイルがなくなったようで、
bbsmenu.html にかえれば見えるようです。
とりあえず cvs の方も直しときました。

69 ：名無しさん＠お腹いっぱい。 ：02/02/18 11:58

いま1.5.1つかってんだけど、cvsにするとなんかいいことってある?

70 ：67 ：02/02/18 12:57

>>68
変更したらメニューが出てきました。
でもラーメン板とかがミレナイ。。。movedされちゃったって。。。

71 ：mami ：02/02/18 13:22

>>70
こちらをおすすめ。
(setq navi2ch-list-bbstable-url "http://www.onputan.com/board/bdleft.html")

72 ：knok ：02/02/18 17:11

うーむ、今 w3m で www.2ch.net/2ch.html をみたら
http://www6.ocn.ne.jp/~mirv/2chmenu.html
になってました... bbsmenu.html もそのうちなくなるのかな?

73 ：名無しさん＠お腹いっぱい。 ：02/02/18 17:54

今度こそ書きこめるかな…

> >>63
> 単に順番を変えるだけだと、
> 特定の板だけモナーフォントを使いたいときは
> navi2ch-mona-enable は nil なんで困りますね。
> 現状だとフォントまわりの設定が済んだら
> (require 'navi2ch-mona) してね、
> になっちゃうのかな。

現状でも所詮 navi2ch-load-hook に加えてるだけなので、
関数 navi2ch の中で、
--- navi2ch.el 14 Feb 2002 00:44:47 -0000 1.30
+++ navi2ch.el 18 Feb 2002 06:31:37 -0000
@@ -60,6 +60,9 @@
(when (file-exists-p navi2ch-update-file)
(load-file navi2ch-update-file))
(load navi2ch-init-file t)
+ (when (and navi2ch-mona-enable
+ (or navi2ch-on-xemacs navi2ch-on-emacs21))
+ (require 'navi2ch-mona))
(if navi2ch-auto-update
(navi2ch-update))
(add-hook 'kill-emacs-hook 'navi2ch-save-status)

しちゃってもええんちゃうかと思うのは素人考えですかね。。。

74 ：48 ：02/02/18 22:46

>>56
とりあえず、個人的には以下のようなコードを ~/.navi2ch/init.el に書くこ
とで Emacs 21 で DEL でバックスクロールできるようにしました。

(defvar my-navi2ch-del-key-flag nil)
(and (fboundp 'normal-erase-is-backspace-mode)
normal-erase-is-backspace
(progn
(setq my-navi2ch-del-key-flag t)
(add-hook 'navi2ch-article-mode-hook
'(lambda ()
(normal-erase-is-backspace-mode)))))
(if my-navi2ch-del-key-flag
(add-hook 'navi2ch-article-exit-hook
'(lambda ()
(or normal-erase-is-backspace
(normal-erase-is-backspace-mode)))))

;; あんまり美しくはないですが……

75 ：名無しさん＠お腹いっぱい。 ：02/02/19 00:19

新変数navi2ch-use-highlight-mouse-lineを導入するパッチです。
よろしければ取り込んでください。

diff -uNr navi2ch.orig/navi2ch-board-misc.el navi2ch/navi2ch-board-misc.el
--- navi2ch.orig/navi2ch-board-misc.el Fri Feb 8 16:59:47 2002
+++ navi2ch/navi2ch-board-misc.el Mon Feb 18 16:10:36 2002
@@ -175,7 +175,8 @@
(navi2ch-bm-set-property-internal begin end item)
(setq updated (or updated (get-text-property (1+ begin) 'updated)))
(put-text-property begin end 'updated updated)
- (put-text-property begin end 'mouse-face 'highlight)
+ (when navi2ch-use-highlight-mouse-line
+ (put-text-property begin end 'mouse-face 'highlight))
(put-text-property begin end 'face (nth (cond ((eq updated 'updated) 3)
((eq updated 'seen) 4)
((eq updated nil) 2))
diff -uNr navi2ch.orig/navi2ch-list.el navi2ch/navi2ch-list.el
--- navi2ch.orig/navi2ch-list.el Thu Jan 31 02:20:17 2002
+++ navi2ch/navi2ch-list.el Mon Feb 18 16:12:54 2002
@@ -206,8 +206,9 @@
(cdr (assq 'name board)) "\n")
(set-text-properties
prev (1- (point))
- (list 'mouse-face 'highlight
- 'face (cadr state))))
+ (list 'face (cadr state))))
+ (when navi2ch-use-highlight-mouse-line
+ (put-text-property prev (1- (point)) 'mouse-face 'highlight))
(put-text-property prev (point) 'board board)
(setq prev (point)))))

@@ -222,8 +223,9 @@
(insert "[" (if open "-" "+") "]"
(car pair) "\n")
(set-text-properties prev (1- (point))
- (list 'mouse-face 'highlight
- 'face 'navi2ch-list-category-face))
+ (list 'face 'navi2ch-list-category-face))
+ (when navi2ch-use-highlight-mouse-line
+ (put-text-property prev (1- (point)) 'mouse-face 'highlight))
(put-text-property prev (point) 'category (car pair))
(when open
(navi2ch-list-insert-board-names-subr (cdr (assq 'child alist))))
diff -uNr navi2ch.orig/navi2ch-vars.el navi2ch/navi2ch-vars.el
--- navi2ch.orig/navi2ch-vars.el Mon Feb 18 15:21:21 2002
+++ navi2ch/navi2ch-vars.el Mon Feb 18 16:10:36 2002
@@ -781,6 +781,11 @@
(add-hook 'navi2ch-load-hook
(lambda () (load "navi2ch-mona")))))

+(defcustom navi2ch-use-highlight-mouse-line t
+ "*non-nil なら、板一覧とブックマークでマウスの行をハイライトする。"
+ :type 'boolean
+ :group 'navi2ch)
+
;; folder icons. filename relative to navi2ch-icon-directory
(defvar navi2ch-online-icon "plugged.xpm"
"*Icon file for online state.")

76 ：名無しさん＠お腹いっぱい。 ：02/02/19 00:27

"m-a-m-i"するときのカーソルの動きが気になるので、

--- navi2ch-board-misc.el.orig Tue Feb 19 00:00:15 2002
+++ navi2ch-board-misc.el Tue Feb 19 00:13:29 2002
@@ -556,6 +556,7 @@
(apply func args))
(navi2ch-bm-unmark))
(navi2ch-update-failed nil))
+ (beginning-of-line)
(sit-for 0))
(forward-line))))

こうして欲しいのですが。
;;完全に趣味の問題なので、強い要望ではないです。

77 ：名無しさん＠Ｅｍａｃｓ ：02/02/19 20:09

すいませんが、
http://pc.2ch.net/test/read.cgi/unix/1013391187/294
以降見れないんですが。

78 ：名無しさん＠お腹いっぱい。 ：02/02/19 22:51

>>77
普通に読めるけど？環境は？
ただ空白が多いのに気づいていない、に一票だが。

79 ：名無しさん＠Ｅｍａｃｓ ：02/02/20 00:24

>>78
そのとおりでした。空白があるとは思わなかったですよ。
どおりでエラーにもならないはず…

逝ってきます

80 ：名無しさん＠お腹いっぱい。 ：02/02/20 12:34

レスのプレビュー機能は、ないんでしょうか。

81 ：名無しさん＠Ｅｍａｃｓ ：02/02/20 13:30

今日会社に来たら cvs update ができなくなってた。ファイアウォールの設定
変えるってメイルが来てたからそれのせいかなぁ。もう cvs 版追っかけるこ
とできないんだろうか(鬱

82 ：knok ：02/02/20 17:24

>>45
変更しました。
>>62
navi2ch-load-hook でなく navi2ch-hook に (load "navi2ch-mona")
を追加するよう変えればいいんでしょうか?

(75, 76 はどうしよう... 入れてしまっても問題ないかな)
>>81
navi2ch.sf.net/debian/source/ にある cvs snapshot では
だめですかね。18 日以降は変更がないのでその日の分までしか
作ってないですけど。

83 ：名無しさん＠お腹いっぱい。 ：02/02/20 21:21

> >>62
> navi2ch-load-hook でなく navi2ch-hook に (load "navi2ch-mona")
> を追加するよう変えればいいんでしょうか?

73 よりはそれのがよさそうですね。
ちなみにそのばあい、 load よりは require な気がします。

84 ：81 ：02/02/20 21:23

>>82
ありがとうございます。navi2ch は仕事する時間よりも長く使っています(ｗ
新しい機能は多分ほとんど使っていないのでそれほど困りはしないのですが。

85 ：mami ：02/02/20 22:54

http://pc.2ch.net/test/read.cgi/unix/1009340234/630
> スレをテキスト形式で保存するのって
> ボードモードでスレの上で
> e
> をおせばいいんですが、保存したいディレクトリ
> までしか指定できませんね。
> 保存したいファイル名まで指定できるとうれしいんですが。
ファイル名を聞くようにしました。

>>13
変数で設定しなくていいようにしたかったんで、
別な実装にしました。
すんません。

86 ：名無しさん＠Ｅｍａｃｓ ：02/02/21 00:15

(describe-mod)で表示される説明に、

キーバインドだけでなく、マークの意味も書いて
もらえませんか?

87 ：287@part4 ：02/02/21 01:37

navi2ch-mona の互換性をなくしたせいで
だいぶご迷惑をおかけしてしまったようです。すみません。

mona 関連の変数を init.el で直接 setq すると
変更が反映されないのは、defcustom の `:set' に
設定してる関数が呼ばれないからです。
`setq' と同じ要領で `customize-set-variable' すれば
たぶん変更が反映されると思います。

でもコードそのものがゴチャゴチャしてるのが元凶
なんですよねえ。自分で書いたんだけど。
変数に face を入れとけばいいのにわざわざ parent をセットしてる
ところとかとか、`:set' に長ったらしい lambda 関数を
セットしてるところとか。

手元では navi2ch-mona-font もサポートする形で手を加えて
みたんですが、上に書いたようなところを直すと
また互換性が一部なくなるんで、こういう場合は CVS のブランチに
コミットすればいいんでしょうか。

・parent 使うのはやめ。
・mona face のシンボルは変数 navi2ch-mona-face にセットしとく。
・navi2ch-mona-font が束縛されていれば、navi2ch-initフックで
　新しく navi2ch-mona-font用の face を作って、それを
　navi2ch-mona-face にする。
・変数 navi2ch-mona-font-family-name を変更するときは
　(navi2ch-mona-font-family-name "mona-gothic")
　てな感じでいけるようにする。
・サンプルテキストをギコ猫からモナーに変える。base64 使うのは
　よろしくなさそうなので（そもそもいらんかも……）。

てな感じでいこうと思いますがなにか？

88 ：75 ：02/02/21 03:56

>>82

マウス行のハイライトって、マウスをあまり使わない人には
意味無いと思っていたけど。おれだけ?
すくなくともおれにとっては邪魔なだけ。

害が無ければ入れてくださいな。

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