[Mew-dist 2837] IM Aliases

[Murata Takashi]

  村田@NSGです。
  やっとMH依存の1.70から1.92に乗り換えました(IPXだと遅いです…)。

  MHからの移行の都合で、IMのAliasesについて要望があります。いくつかは
修正してみましたが、perlは全然使ったことが無かったので、適当です。

◆Aliasesファイルで"<"によるファイル取り込みを使いたい
  MHでは
	< ファイル名
  で、他のAliasesファイルを取り込めたのですが、IMでも使いたいのです。

◆SiteConfigと~/.im/Configで指定したAliasesFileどちらも使いたい
  現状では、SiteConfigが無視され、~/.im/Configだけ有効になるようです。
  ~/.im/Config, /usr/local/lib/im/SiteConfigの順で評価してもらえれば、
  個人のaliasと共有aliasを使うことが出来ます。

◆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

--
村田 隆 / Takashi.Murata at example.com
日本システム技術(株) 技術部