#!/usr/local/bin/nawk -f
#
# Pretty-print a mail file
#

BEGIN { for (i = 0; i < 79; i++) div = div "-" }
/^From / { if (sp) {print div; bd = 0}; sp = 0; if (bd) print; next }
/^(Date|From|To|Subject): / { if (sp) bd = 1; sp = 0; print; next }
/^$/ { sp = 1; print; next }
{ if (sp) bd = 1; sp = 0; if (bd) print }
.