From:	CSBVAX::MRGATE!RAND@merrimack.EDU@SMTP  8-JAN-1988 22:44
To:	ARISIA::EVERHART
Subj:	Annoying mail headers


Received: from YMIR.BITNET by CUNYVM.CUNY.EDU ; Fri, 08 Jan 88 22:19:31 EST
Received: from BITNET-GATEWAY by YMIR.BITNET; Fri, 8 Jan 88 16:44 PST
Received: from CUNYVM by CUNYVM.BITNET (Mailer X1.25) with BSMTP id 6973; Fri,
 08 Jan 88 15:46:37 EST
Received: from RELAY.CS.NET by CUNYVM.CUNY.EDU ; Fri, 08 Jan 88 15:44:29 EST
Received: from relay2.cs.net by RELAY.CS.NET id ab28981; 8 Jan 88 14:56 EST
Received: from merrimack.edu by RELAY.CS.NET id aa05707; 8 Jan 88 14:45 EST
Date: Fri, 8 Jan 88 10:41 EST
From: "Rand P. Hall" <RAND%merrimack.edu@RELAY.CS.NET>
Subject: Annoying mail headers
To: info-pmdf%ymir.bitnet@RELAY.CS.NET
X-VMS-To: IN%"info-pmdf@ymir.bitnet"
Resent-date: Fri, 8 Jan 88 16:48 PST
Resent-to: INFO-PMDF-LIST@YMIR.BITNET

After getting tired of paging through Internet mail headers I had
someone kludge up a hack to rip off the header before the message is delivered.
I've enclosed it here for those who are interested. If anyone has a
better solution, please send mail.

To use:

Stick the following line, or something similar, in your mail.delivery file.

"IN%*" * * O E @rip.com

Extract the following command procedure and name it rip.com. All
incoming Internet mail will now automagically have the header removed.
It isn't exactly efficient but it works.

Rand P. Hall                         rand@merrimack.edu (csnet)
Director, Academic Computing         617.683.7111
Merrimack College
315 Turnpike Rd.                     "There is elegance in simplicity."
North Andover, Mass. 01845                      - Kimball S. Maddocks
Disclaimer: Jack Kemp does NOT know I support him.

-------------- cut here --------------------
$!+
$! Rip.Com (v2.1) by Miles Gerlick
$! com to rip header from mail file,
$!     where "header" is defined as all the lines
$!     up to but not including the first blank line
$!     (n.b. - "blank" lines are those with nothing
$!     but a TPU pattern of "line_begin & line_end" in them)
$!  v2.0 - 29-Oct-1987 - original
$!  v2.1 - 05-Nov-1987 - changed definition of blank line to 'blank line'
$!             i.e., whitespace no longer considered a blank line.
$!  v2.2 - 05-Jan-1988 - Finally figured out why Deliver was leaving files
$!             all over the place. Added Delete. Rand P Hall
$!
$ !define /user sys$output nl:   ! (optional silence)
$ edit/TPU /nosect/nodisp /comm=sys$input /output='message_file 'message_file
buf := create_buffer ("", get_info (command_line, "file_name"));
set (output_file, buf, get_info (command_line, "output_file"));
position (beginning_of (buf));
x := mark(none);
pat := line_begin & line_end;
position (beginning_of (search (pat, forward)));
erase (create_range (x, mark(none), none));
split_line;
exit;
$!Delete the original, Deliver will mail the hacked up version
$ delete/nolog 'message_file'.-1
$ exit



