[Mew-dist 06128] Re: imget from RMAIL file

[SAKAI Kiyotaka]

かなり昔の話になりますが、

>> In article <19980210130450K.kazu at example.com>, Kazu Yamamoto (山本和彦) <Kazu at example.com> writes:

> やっぱり、RMAIL と VM のフォルダ形式ぐらいは、imget でサポートすべきで
> しょうね。だれか作ってくれると嬉しいな。

RMAIL 形式をサポートするためのパッチです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: IM.in/RCS/LocalMbox.pm.in,v
retrieving revision 1.1
diff -u -r1.1 IM.in/LocalMbox.pm.in
--- IM.in/LocalMbox.pm.in	1998/08/24 09:00:27	1.1
+++ IM.in/LocalMbox.pm.in	1998/08/24 09:24:25
@@ -255,6 +255,8 @@
 	$format = 'UNIX';
     } elsif ($first_line =~ /^\001\001\001\001$/) {
 	$format = 'MMDF';
+    } elsif ($first_line =~ /rmail/) {
+	$format = 'RMAIL';
     } else {
 	im_warn("invalid mbox format: $mbox\n");
 	return -1;
@@ -270,6 +272,12 @@
 	    }
 	}
 
+	if ($format eq 'RMAIL') {
+	    while (<MBOX>) {
+		last if /^\*\*\* EOOH \*\*\*$/;
+	    }
+	}
+
 	if ($how eq 'from' && $format eq 'UNIX') {
 	    print "$first_line\n";
 	}
@@ -295,6 +303,9 @@
 	    } elsif ($format eq 'UNIX' && $length <= 0
 		  && /^From / && $Message[$#Message] eq "\n") {
 		chomp($first_line = $_);
+		last;
+	    } elsif ($format eq 'RMAIL' && /^\x1f/ ) {
+		chomp($first_line = <MBOX>);
 		last;
 	    } elsif ($inheader) {
 		if ($format eq 'MMDF' && $how eq 'from') {