#!/bin/sh
for f in $*; do
  echo -n `basename $f`...
  s=$f.save
  mv $f $s
  awk '!NF{h=0}!h||(c&&$0~/^[ \t]/){print;next}c{c=0}$1=="To:"||$1=="From:"||$1=="Cc:"||$1=="Subject:"||$1=="Date:"||$1=="Reply-To:"{c=1;print}' h=1 c=0 $s>$f
  rm -f $s
  echo " done"
done