[Mew-dist 1720] Re: concatination of partial messages (patch for IM-65)

[Kiwame TOKAI ( 東海研 )]

Content-Type: headerが複数行になっていて、partial部の記述が2行目以降だと
うまく行きません。

その場しのぎの対応かも知れませんが、patchをつくりました。
//tokai

diff -ur MsgStore.pm.in.orig MsgStore.pm.in
--- MsgStore.pm.in.orig	Thu Aug 28 10:41:58 1997
+++ MsgStore.pm.in	Thu Aug 28 18:09:05 1997
@@ -119,7 +119,18 @@
 	    return -1;
 	}
 
-	my @Hdr = @$Msg[0..$hcount];
+	my @Hdr;
+	my $hdrTmp;
+	$line = "";
+	while ($hcount--) {
+	    $hdrTmp = shift(@$Msg);
+	    if ($hdrTmp =~ /^[ \t]/) {
+		$line .= $hdrTmp;
+	    } else {
+		push(@Hdr, $line) if ($line);
+		$line = $hdrTmp;
+	    }
+	}
 
 	unless ($main::opt_noscan) {
 	    require IM::Scan && import IM::Scan;
@@ -130,7 +141,7 @@
 
 	    &store_header(\%Head, join('', @Hdr));
 
-	    splice(@$Msg, 0, $hcount);
+#	    splice(@$Msg, 0, $hcount);
 	    $Head{'body:'} = &parse_body($Msg, 1);
 
 #	    $Head{'bytes:'} = $size;