#!/bin/rc
# mdir: list contents of maildir
if(~ $#* 0)
	*=*
if not
	*=$*/*
awk '
function output(){
	printf "%s  %-20.20s  %-30.30s  %-11.11s\n", file, from, subj, date
}
FNR == 1 {
	if(file != "")
		output()
	file = FILENAME
	date = ""
	from = ""
	subj = ""
}
/^Date: / {
	sub("^Date: +", "")
	sub("^..., 0?", "")
	date = $0
}
/^From: / {
	sub("^From: +", "")
	from = $0
}
/^Subject: / {
	sub("^Subject: +", "")
	subj = $0
}
/^$/ {
	nextfile
}
END {
	output()
}
' $*