[Mew-dist 06123] Re: im-98

[SHIMADA Nobutaka]

島田＠阪大です．

From: Murata Takashi <Takashi.Murata at example.com>
Subject: [Mew-dist 06103] Re: im-98
Date: Sat, 22 Aug 1998 19:21:52 +0900

> > ! } elsif ($opt_src =~ /^([+=~\/])|([a-zA-Z]:)/) {
> 
>   こう直してみていたのですが、 imcat だと絶対パスが指定出来ないことは
> ありませんか？ それでどう修正すればいいのか分からなかったのです。
> # 勘違いだったらごめんなさい。
> 
> % ./imcat --src=/export/home/tam/Mail/inbox 38
> imcat: no message 38 in folder +/export/home/tam/Mail/inbox.
> % ./imcat --src=~tam/Mail/inbox 38
> Return-Path: <mew-dist-admin at example.com>

ごめんなさい．Config.pmのうち1行修正指示を忘れていました．
次のパッチをim-98オリジナルのConfig.pm.inにあててください．


-------------- next part --------------
*** IM.in/Config.pm.in.orig	Mon Aug 24 11:15:06 1998
--- IM.in/Config.pm.in	Mon Aug 24 13:05:44 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++;
  	    }
  	}
***************
*** 600,606 ****
  	    }
  	} elsif ($desc =~ /F/) {  # xxx how about f
  	    # +inbox -> + inbox -> --src +inbox
! 	    if ($val =~ /^[+\-=%~]/) {
  		${$vnam} = $val;
  	    } else {
  		${$vnam} = "+$val";
--- 600,606 ----
  	    }
  	} elsif ($desc =~ /F/) {  # xxx how about f
  	    # +inbox -> + inbox -> --src +inbox
! 	    if ($val =~ /(^[+\-=%~\/])|(^[a-zA-Z]:)/) {
  		${$vnam} = $val;
  	    } else {
  		${$vnam} = "+$val";
***************
*** 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";