#!/usr/athena/bin/perl

$msgnum = $ARGV[0];

open(MSG, "/mit/$ENV{'USER'}/Mail/inbox/$msgnum") || die("Not a message\n");

until(/^\n/){
    $_= (<MSG>);
	print if /To: /;
	print if /From: /;
	print if /Date: /;
	print if /Subject: /;
}
print("\n");
while(<MSG>)
{
    print;
}