if ping -q -c 3 $IMAPHOST >/dev/null 2>&1; then
nice -n 19 offlineimap -o -u Noninteractive.Basic 2>&1 |grep validity| \
perl -ne 'my ($account,$list) = /UID validity problem for folder ([\w-]+)\.([\w-]+)/;
+ next unless defined $account and length $account;
qx(/home/don/bin/deletemailbox -a $account $list > /dev/null);';
fi;
fi;