[Mew-dist 06100] Re: im-98
Murata Takashi
Takashi.Murata at example.com
1998年 8月 22日 (土) 16:58:46 JST
村田@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 (/^-(.*)$/) {
Mew-dist メーリングリストの案内