[Mew-Win32 01350] Re: namazu error and perl error

[Hideyuki SHIRAI ( 白井秀行 )]

白井＠わかった!!(かもしれない)

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-Win32 01340] Re: namazu error and perl error
Message-ID: <19990414163654R.shirai at example.com>
Date: Wed, 14 Apr 1999 16:36:54 +0900

白井> となっていて、LF と CRLF が交ざっています。こうなると、以後全然
白井> ダメでした。ちなみに新規ファイルを追加したときは LF のままです。
白井> なんだか、すべてを LF で処理すればいいのかな？NMZ.field.xxx だけ
白井> CRLF だし。

杉森> エラーが出たのでNMZ.rを見てみたら、やっぱりLFとCRLFがまざってました。
杉森> 以前、報告したNMZ.rの中身が他のfolderと混ざる件は発生していません。

白井> じゃぁ、ほとんどビンゴですかねぇ。しばらく考えさせて下さい。

私の namazu は ver.1.3.0.6 なのですが、

--- mknmz.orig  Wed Apr 14 13:35:50 1999
+++ mknmz       Thu Apr 15 09:06:50 1999
@@ -1875,7 +1875,9 @@
 
 sub update_registration_file() {
     open(REGLIST, ">>$REGLIST") || die "$REGLIST: $!\n";;
+    binmode(REGLIST);
     open(REGLIST_, $REGLIST_) || die "$REGLIST_: $!\n";;
+    binmode(REGLIST_);
     while (<REGLIST_>) {
        print REGLIST $_;
     }

でうまく行くようです。mew-namazu.el 自体も temp-file 書くときに
coding-system を拘束していなかったので、下のようにしておくといい
と思います。

--- mew-namazu.el.orig	Thu Apr 15 09:09:52 1999
+++ mew-namazu.el	Thu Apr 15 09:06:49 1999
@@ -409,7 +409,9 @@
 					      "\n")
 				   (insert (expand-file-name file folder-dir) "\n"))))
 			    file-list)
-		    (write-region (point-min) (point-max) temp-file nil 'no-msg)
+		    (mew-frwlet
+		     mew-cs-autoconv mew-cs-pick
+		     (write-region (point-min) (point-max) temp-file nil 'no-msg))
 		    (kill-buffer (current-buffer))
 		    (if (or (not exist-msg) remove)
 			(and (file-directory-p namazu-dir)