Cleaning up your archived mail

If other grassu people save their mail as I do, here's a little script
file that can take a lot of the useless text out of their archive.

------------------------------------cut here-----------------------

#begin CLEAN
ex $1 << EOF
:g/^Re/d
:g/^ id/d
:g/^ (/d
:g/^Se/d
:g/^Appar/d
:g/^X/d
:g/^In-Reply/d
:g/^Sta/d
:g/^Errors-To/d
:g/^Pre/d
:g/^From lists/d
:g/^Message/d
:g/^To:/d
:wq
EOF

-------------------------------cut here----------------------------

This file uses EX to delete most of the headers that come with the
mail; I've both lists archived into text files, and the complete
package (cleaned) is < 3 megs. Syntax: <clean filename>

^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^
   Ronald Thomas ^ ront@meeker.cfnr.colostate.edu
    Natural Resource Spec. (GIS) ^
     Resource Management Division ^ Phone: 303-586-3565 x285
      Rocky Mountain National Park ^ 700-323-7285 (FTS)
       Estes Park, CO 80517 ^
^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^