#! /bin/sh

vmail_dir=/var/vmail/localhost/admin

for FOLDER in ${vmail_dir}/.spam.certainly-spam*-read ; do
	DST=`echo $FOLDER | /usr/local/bin/perl -p -e 's/-read//'`/new
	for SRC in $FOLDER/cur/ $FOLDER/new/ ; do
		/usr/bin/find $SRC -type f \
		| while read f ; do
			/bin/mv $f $DST/`/usr/bin/basename $f`':2,Sa'
		done
	done
done