@1 macrobegin find "submitted: " return return delch delch delch delch delch delch delch delch delch delch delch delch delch delch delch endline backspace backspace backspace backspace backspace backspace backspace backspace cursordown &
cursorleft cursorleft cursorleft cursorleft cursorleft cursorleft cursorleft cursorleft cursorleft deltoeol insertline cursordown cursordown delline begline cursorup cursorup cursorup cursorup cursorup
*
@3 macrobegin find "read mail (cont,fwd,help,nonstop" return return delline cursorup delline cursorup cursorup cursorup cursorup cursorup cursorup cursorup cursorup
*
@4 macrobegin find "mail command (from,groups,help,quit" return return delline cursorup delline
*
@2 macrobegin findreplace "message #:" return "#" return return "g" begfile findreplace "subject: " return " " return return "g" begfile
*