* add xsl

[bin.git] / getmail

diff --git a/getmail b/getmail
index d13d872f48bb568068bb92ec587a3451dee7e853..1f66e073d1f166253a042a32e07812cf546d802c 100755 (executable)
--- a/getmail
+++ b/getmail
@@ -18,12 +18,15 @@ if [ -z "$CRON" ] || kill -0 `pgrep -U $(id -u) -x $MUA` 2>/dev/null; then
        if 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);';
+                      qx(/home/don/bin/deletemailbox -a $account $list > /dev/null);'; then
            # Clean the lists up too
            for account in bugs lists; do
                find /home/don/Mail/$account -maxdepth 1 -mindepth 1 -type d \
                    -exec sh -c 'test $(find {} -type f |wc -l) -eq 0' ';' \
-                   -printf '%f\000'|xargs -0 -n 1 ~/bin/deletemailbox -a $account >/dev/null
+                   -printf '%f\000'|xargs -0 -rn 1 ~/bin/deletemailbox -a $account >/dev/null 2>&1;
+               find /home/don/Mail/$account -maxdepth 2 -mindepth 2 -iname 'new' \
+                   -type d -ctime +60 -printf '%h\n'|xargs -rn 1 basename|xargs \
+                   -rn 1 /home/don/bin/deletemailbox -a $account >/dev/null 2>&1;
            done;
        fi;
     fi;