#!/usr/bin/perl
#
# $Id: cm,v 1.3+3 2008/08/17 20:25:49 vogelke Exp $
#
# cm: clean mail message

while (<>) {
    s/Jan\.  /Jan /g;
    s/Feb\.  /Feb /g;
    s/Aug\.  /Aug /g;
    s/Sept\.  /Sept /g;
    s/Oct\.  /Oct /g;
    s/Nov\.  /Nov /g;
    s/Dec\.  /Dec /g;
    s/ Co\.  / Co /g;
    s/ Corp\.  / Corp /g;
    s/ Inc\.  / Inc /g;
    s/Mr\.  /Mr. /g;
    s/Mrs\.  /Mrs. /g;
    s/Ms\.  /Ms. /g;
    s/Dr\.  /Dr. /g;
    s/Sen\.  /Senator /g;
    s/Gov\.  /Governor /g;
    s/Rep\.  /Representative /g;
    s/U\.S\.A\.  /USA /g;
    s/U\.S\.  /US /g;
    s/U\.K\.  /UK /g;
    s/D\.C\.  /DC /g;
    s/U\.N\.  /UN /g;
    s/B\.S\.  /BS /g;
    s/H\.R\.  /HR /g;
    s/M\.B\.A\.  /MBA /g;
    s/ ([A-Z]\.)  / $1 /g;
    s/''/\"/g;
    s/``/\"/g;
    s/\.  \.  \.  \./.../g;
    s/\.  \.  \./.../g;
    s/\.  \./../g;

    s/\s\s*([dsmt]) /\'$1 /g; # Some townhall.com pages.
    s/\s\s*ll /\'ll /g;
    s/\s\s*ve /\'ve /g;
    s/\s\s*re /\'re /g;

    s/\342\200\231/'/g;     # These come from saving Firefox pages
    s/\342\200\234/"/g;
    s/\342\200\235/"/g;

    print;
}

exit(0);