[Mew-dist 06100] Re: im-98

[Murata Takashi]

  村田@NSGです。

From: SHIMADA Nobutaka <shimada at example.com>
Subject: [Mew-dist 06097] Re: im-98
Date: Sat, 22 Aug 1998 14:01:15 +0900

> [Mew-dist 06087]で書いたような修正をしないといけないと思いますが，
> どんなもんでしょう？

  context diff じゃなかったので、マージが保留されたのではないですか？

  説明のように修正してみたら、ちゃんと動作するみたいですが、 imcat.in
はどこをどう修正すればいいのか、分かりませんでした(^_^;。
┌───────────── 村田 隆 / Takashi.Murata at example.com ┐
└ 日本システム技術(株) 技術部  Tel:03-3503-8736  Fax:03-3580-7806 ┘

*** IM.in/Config.pm.in~	Sat Aug 22 13:31:12 1998
--- IM.in/Config.pm.in	Sat Aug 22 16:43:33 1998
***************
*** 422,428 ****
  		splice(@$argref, $ref, 1);
  	    }
  	    set_value($desc, $vnam, $val, 'opt');
! 	} elsif (/^[+\-=%.\/~]/ && $O_FOPT) {
  	    $name = $O_FOPT;
  	    $val = $_;
  	    $desc = $O_DESC{$name} || im_die("unknown option $name\n"); # must be F or F@
--- 422,428 ----
  		splice(@$argref, $ref, 1);
  	    }
  	    set_value($desc, $vnam, $val, 'opt');
! 	} elsif (/^([+\-=%.\/~])|([a-zA-Z]:)/ && $O_FOPT) {
  	    $name = $O_FOPT;
  	    $val = $_;
  	    $desc = $O_DESC{$name} || im_die("unknown option $name\n"); # must be F or F@
***************
*** 571,577 ****
  	if ($desc =~ /F/) { # xxx how about f
  	    my ($i, $N) = (0, scalar(@val));
  	    while ($i < $N) {
! 		$val[$i] = "+$val[$i]" unless $val =~ /^[+\-=%~]/;
  		$i++;
  	    }
  	}
--- 571,577 ----
  	if ($desc =~ /F/) { # xxx how about f
  	    my ($i, $N) = (0, scalar(@val));
  	    while ($i < $N) {
! 		$val[$i] = "+$val[$i]" unless $val =~ /^([+\-=%~\/])|([a-zA-Z]:)/;
  		$i++;
  	    }
  	}
***************
*** 630,636 ****
  	}
      } elsif ($desc =~ /F/) {  # xxx how about f
  	# +inbox -> + inbox -> --src +inbox
! 	if ($val =~ /^[+\-=%]/) {
  	    $case->{$vnam} = $val;
  	} else {
  	    $case->{$vnam} = "+$val";
--- 630,636 ----
  	}
      } elsif ($desc =~ /F/) {  # xxx how about f
  	# +inbox -> + inbox -> --src +inbox
! 	if ($val =~ /^([+\-=%\/])|([a-zA-Z]:)/) {
  	    $case->{$vnam} = $val;
  	} else {
  	    $case->{$vnam} = "+$val";

*** imls.in~	Fri Aug 14 19:48:44 1998
--- imls.in	Sat Aug 22 15:57:10 1998
***************
*** 115,121 ****
  	im_die("must specify just one folder.\n");
      }
      $_ = $opt_src[0];
!     if (/^[+=.\/~]/) {
  	require IM::Folder && import IM::Folder qw(get_message_paths);
  	local_files($_, @ARGV);
      } elsif (/^-(.*)$/) {
--- 115,121 ----
  	im_die("must specify just one folder.\n");
      }
      $_ = $opt_src[0];
!     if (/^([+=.\/~])|([a-zA-Z]:)/) {
  	require IM::Folder && import IM::Folder qw(get_message_paths);
  	local_files($_, @ARGV);
      } elsif (/^-(.*)$/) {