#!/bin/rc

rfork en

isnotspam=/mail/box/$user/unspam
isspam=/mail/box/$user/mkspam

upas/fs -n
echo -n 'open '$isspam' isspam' > /mail/fs/ctl
echo -n 'open '$isnotspam' isnotspam' > /mail/fs/ctl

cd /mail/fs/isspam

for (msg in *) @{
	cd $msg
	cat unixheader raw | upas/spam
	cd ..
	rm $msg
}

cd /mail/fs/isnotspam

for (msg in *) @{
	cd $msg
	cat unixheader raw | upas/unspam
	cd ..
	rm $msg
}

unmount /mail/fs