#!/bin/sh

PATH=/bin:/usr/bin:/mach/bin

split() { S="$IFS"; IFS="$2"; set $1; IFS="$S"; echo $*; }

cd /var/spool/mqueue
ls qf* | while read qf && df=df`split $qf qf`
do
perl -nle 's/\r//; print if s/^[H][?]?(\w+[?])?//' $qf | formail
cat $df
echo
echo

done