#!/bin/sh

if [ $# -ne 0 ] ; then cat "$@" ; else cat; fi | nawk '
/begin [0-9]/                          {ok = 1}
/^Message/                             {ok = 0;next}
/^M/ && (length == 61 || length == 62) {ok = 1}
/[cC]ut [hH]ere/                       {ok = 0;next}
/^END-----/                            {ok = 0;next}
/^Path:/                               {ok = 0;next}
/^$/                                   {ok = 0;next}
/^-/                                   {ok = 0;next}
/^_/                                   {ok = 0;next}
{if (ok) print}
/^end/                                 {ok = 0}' $* | \
(cd ~/tmp && uudecode)
.