[Mew-dist 03523] Re: im-83

[Murata Takashi]

  こんにちは。村田@NSGです。

> im-83.tar.gz を ftp.mew.org:/pub/Mew/beta に置きました。

  ずいぶん前にお願いしたのですが、以下の修正を加えて戴けないでしょうか？
  よろしくお願いします。
--
村田 隆 / Takashi.Murata at example.com
日本システム技術(株) 技術部

From: Murata Takashi <Takashi.Murata at example.com>
Subject: [Mew-dist 2837] IM Aliases
Date: Fri, 31 Oct 1997 11:38:45 +0900

> ◆imaliで複数のalias fileが使えない
> 	AliasesFile=file1,file2
>   と指定した場合、imaliでは怒られるのですが、imputでは使えるようです。
>   とりあえず、imaliのファイルチェックだけコメントにして動かしています。
> 
> *** /usr/local/bin/imali.sav	Fri Oct 24 21:33:38 1997
> --- /usr/local/bin/imali	Thu Oct 30 12:21:49 1997
> ***************
> *** 67,76 ****
>   my $i;
>   
>   $opt_aliasesfile = &expand_path($opt_aliasesfile);
> ! if (! -f $opt_aliasesfile) {
> !     im_warn("no alias file $opt_aliasesfile\n");
> !     exit $EXIT_SUCCESS;
> ! }
>   &open_aliases($opt_aliasesfile);
>   if (scalar(@targets) == 0) {
>       local $, = "\n";
> --- 67,76 ----
>   my $i;
>   
>   $opt_aliasesfile = &expand_path($opt_aliasesfile);
> ! #if (! -f $opt_aliasesfile) {
> ! #    im_warn("no alias file $opt_aliasesfile\n");
> ! #    exit $EXIT_SUCCESS;
> ! #}
>   &open_aliases($opt_aliasesfile);
>   if (scalar(@targets) == 0) {
>       local $, = "\n";
> 
> ◆行頭のスペースを無視して欲しい
>   MHで使っているファイルではindentして見易くしていて、それをそのまま
> 使えるようにしたいので。
> 
> *** /usr/local/lib/perl5/site_perl/IM/Alias.pm.sav	Fri Oct 24 21:33:43 1997
> --- /usr/local/lib/perl5/site_perl/IM/Alias.pm	Thu Oct 30 12:40:01 1997
> ***************
> *** 213,219 ****
>   		$cont =~ s/^\s*/ /;
>   		$_ .= $cont;
>   	    }
> ! 	    if (/^$addr\s*[:=]\s*(.+)$/) {
>   		im_debug("found $addr -> $1\n") if &debug('alias');
>   		$a = $1;
>   ## if ISO2022JP
> --- 213,219 ----
>   		$cont =~ s/^\s*/ /;
>   		$_ .= $cont;
>   	    }
> ! 	    if (/^\s*$addr\s*[:=]\s*(.+)$/) {
>   		im_debug("found $addr -> $1\n") if &debug('alias');
>   		$a = $1;
>   ## if ISO2022JP