#!/bin/csh
# /home/jhs/bin/.csh/mailpack
foreach j ( /pub/FreeBSD/mail /pub/NetBSD/mail /pub/OpenBSD/mail /pub/PCBSD/mail /pub/mail/list ~/mail ~/txt/mail )
	pushd $j
	find . -type f -name ,\* | xargs rm
	foreach i ( `find . -type d` )
		folder +$i -pack
		end
	popd
	end
# JJLATER add something to reindex, for now just just exmh "find all folders"