Modify getmail to have it delete old mailboxes

diff --git a/getmail b/getmail
index 62a1ce05793c09d9af64ba3516bd649238689205..ec6f12d8cbd53c3530d259cc52678d6bb43cac96 100755 (executable)
--- a/getmail
+++ b/getmail
@@ -23,7 +23,10 @@ if [ -z "$CRON" ] || kill -0 `pgrep -U $(id -u) -x $MUA` 2>/dev/null; then
            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 -n 1 ~/bin/deletemailbox -a $account >/dev/null;
+               find /home/don/Mail/$account -maxdepth 2 -mindepth 2 -iname 'new' \
+                   -type d -ctime +60 -printf '%h\n'|xargs -n 1 basename|xargs \
+                   -n 1 /home/don/bin/deletemailbox -a $account >/dev/null;
            done;
        fi;
     fi;