[mew-win32 03936] Re: mew-nmz.el でインデックスが作成できない

[Hideyuki SHIRAI ( 白井秀行 )]

From: Mimpei MORISHITA <mimpei at example.com> さん曰く
Subject: [mew-win32 03935] Re: mew-nmz.el でインデックスが作成できない
Message-ID: <20030720.015935.91279323.mimpei at example.com>
Date: Sun, 20 Jul 2003 01:59:35 +0900 (JST)

白井です。

# すいません、前のメール読み落としていました。

とりあえず、昔の背景や状況など説明しておきます。

> # Perl は Active Perl を利用する方が幸せになれるものなんでしょうか？

昔々の話なのですが、mew-nmz.el を作ったころの状況は、

(1) cygwin な Perl は無かった。あるいは、出たばかりでめちゃくちゃ
    遅くて、まったく使い物にならなかった。

(2) もともと Win32 な Mew な人は IM があるから、PC には問答無用
    で Active Perl (or 北口君 build な Perl) がインストールして
    あるためそれ以外の環境は考えなかった。(IM を cygwin perl で
    動かすパッチを作られた方もいらっしゃいましたが、本体に取り込
    まれましたっけ？)
                    
(3) namazu の perl script 群は Win32 は Active Perl を対象として
    作られている。

という感じで cygwin Perl のことはまったく考えたことがない、とい
う状況です。

また、(たしか) namazu の mknmz などの perl script は cygwin perl
を未だにサポートしていない(*1)し、おそらくまじめなサポートもしな
いでしょうから、そういうことを考えると、Mew(IM) とか namazu を使っ
ているときは Active Perl の方が幸せと言えるでしょう。

> > と出ていました。ファイル名の形式が Cygwin とごっちゃになっておかしくなっ
> > ているのが原因のように思えるのですが、なぜこうなるのか分かっていません。

ぼくも普段 Active Perl で mknmz などを動かしているのですが、
cygwin な Perl で試してみると、

% pwd
/tmp/work
% /usr/bin/perl /usr/local/bin/mknmz c:/home/shirai/Mail/inbox
検索対象のファイルを調べています...
未対応の対象: /tmp/work/c:/home/shirai/Mail/inboxインデックスすべきファイルはありません

となります。これは、mknmz with cygwin perl が "c:/...." が相対パ
スだと思い、ぼくが作業した "/tmp/work" から展開しているのだと思
います。また、この辺がこうなっていると考えると (*1) のことがおわ
かりいただけると思います。

ですので、現状の mknmz を cygwin な Perl とともに mew-nmz.el か
ら使うには、UNIX 的なパスとして扱うためにもりしたさんの

>  			    (if backslash
>  				(insert (mew-nmz-slash-to-backslash file) "\n")
> -			      (insert file "\n")))
> +			      (if mew-nmz-use-cygwin-perl
> +				  (insert (progn (string-match "^\\([a-zA-Z]\\):\\(.*\\)" file)
> +						 (replace-match "/cygdrive/\\1\\2" t nil file)) "\n")
> +				(insert file "\n"))))

の部分相当が必要になると思いますが、もともとのものがサポートして
いない環境を無理やり Elisp で通してしまうのってなんだかいやなの
で、積極的にサポートする気にはなれないのでした。^^;;;

-- 
白井秀行 (mailto:shirai at example.com)