#!/usr/local/bin/perl
#
# Unix Mail Format で保存されてる Internet Message な
# データから body 部分だけを切り出す。
# Lines: ヘッダを見て body -> head の変化を把握してる
#
require 'jcode.pl';
$mode = 'h'; $lines = 99;
while(<>) {
  if($mode eq 'h') {
    if(/^$/) { $mode = 'b'; next; }
    if(/^Lines: */) { $lines = $' + 0; }
  }
  #print "## ($mode) $lines >> $lns\n";
  if($mode eq 'b') {   $lns++; &xprint($_); }
  if($lines < $lns) {
    $lns = 0; $lines = 99;
    $mode = 'h';
  }
}
exit;

sub xprint {
  local($z) = @_;

  &jcode'convert(*z, 'euc');
  if($z =~ /^[ \t]*(>|｜)/) { next; }
  print $z;  


}