#!/usr/local/bin/perl

# 
# mail2memo: メール形式からメモ形式への単純変換
# 
#     [1997/12/07] OSHIRO Naoki.
# 
#     $Log:$
#

while (<>) {
    if (/^$/) {
	last if (eof);
	$_=<>;
	if (/^From (.+)/) {
	    while (<>) {
		last if /^$/;
	    }
	    $user=$1;
	    print "---\n" if ($user ne "header");
	    next;
	} else {
	    print "\n$_";
	}
	next;
    }
    print;
}
print "---\n";