[Mew-dist 03649] Re: supporting Message/partial patch

[SAKAI Kiyotaka]

>> In article <19980204103406P.shirai at example.com>, Hideyuki SHIRAI <Shirai at example.com> writes:

> この 2. なのですが、imcat --join + MsgDB で動かしています。
> # @マークは使っていませんが……

message/partial の history への登録は、imget 時のみに行っているのです
ね。refile で登録しただけではうまくいかないのも当然ですね。

あと、昨日送った imjoin にバグがありましたので、パッチを付けておきます。

仕様としては、他に imcat に --dst オプションを追加して、ファイル名を指
定できるようにする (デフォルトは STDOUT) という方法もあると思いますが、
imjoin のように別コマンドとするのとどっちがいいのでしょうか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)


--- /usr/local/bin/imjoin	Tue Feb  3 19:26:39 1998
+++ imjoin	Wed Feb  4 11:41:09 1998
@@ -198,19 +199,17 @@
 
     # get master Message-ID
     my $header = '';
-    foreach (split(',', $msg)) {
-	if (/^\+/) {
-	    $path = &expand_path($_);
-	} else {
-	    $path = $_;
-	}
-	if (open(MSG, "<$path")) {
-	    $/ = "\n\n";
-	    $header = <MSG>;
-	    $/ = "\n";
-	    close(MSG);
-	    last;
-	}
+    if ($msg =~ /^\+/) {
+	$path = &expand_path($msg);
+    } else {
+	$path = $msg;
+    }
+
+    if (open(MSG, "<$path")) {
+	$/ = "\n\n";
+	$header = <MSG>;
+	$/ = "\n";
+	close(MSG);
     }
 
     if ($header eq '') {