#!/usr/bin/perl -p

# fixmail - filter email text for various personal preferences
# Steve Kinzler, steve@kinzler.com, Jan 07
# https://kinzler.com/me/home.html#unix

s/([^\]\s]*)\s*\[(mailto:)?\1\]/$1/g;
s/([^>\s]*)\s*<(mailto:)?\1>/$1/g;
s/\[mailto:([^\]]*)\]/<$1>/g;
s/\[PMX:VIRUS\] //g;

# try to fix gmail's textifying of my webrowse markup
s/(\*(\|.*?)\*)/$2\n$q/g if ($q) = /^([|> ]*)\*\|.*\*$/;