#!/usr/bin/perl

$verbose = 0;

my $msgnum = shift;
if ($msgnum =~ /^\s*-v\s*$/i)
{ $verbose = 1; $msgnum = shift }

die "usage: $0 [-v] <msgnumber>\n" unless $msgnum > 1;

chop ($user = `whoami`);
my $file = shift || "/usr/mail/$user";
open MAIL, "< $file" or die "$0: can't read $file: $!\n";

$/ = "\n\nFrom ";
$message = <MAIL> foreach (1 .. $msgnum);
$message = "From ".substr($message,0,-7)."\n";

unless ($verbose)
{ @message = split "\n",$message;
  $message = shift @message; # the From_ line
  $message .= "\n";

  $line = shift @message;
  until ($line =~ /^\s*$/)
  { $next = shift @message;
    while ($next =~ /^\s+/) # unfold header line
    { $line .= "\n$next"; $next = shift @message }
    if ($line =~ /^\S*(from|to|cc|subject|sender):/i)
    { $message .= "$line\n" }
    $line = $next;
  }

  $message .= join "\n",($line,@message,'');
}

print $message;