pullimap: purge old messages every 12h.

diff --git a/pullimap b/pullimap
index c16d6acc4c4733885043525c7934f0d1195c71ee..351b4f3e37ecf49ca79d187eb4bb01858f412bfa 100755 (executable)
--- a/pullimap
+++ b/pullimap
@@ -236,7 +236,7 @@ sub purge() {
 
     unless ($days == 0) {
         my $now = time;
-        return if defined $LAST_PURGED and $now - $LAST_PURGED < 6*3600; # purge every 6h
+        return if defined $LAST_PURGED and $now - $LAST_PURGED < 43200; # purge every 12h
         $LAST_PURGED = $now;
 
         my @now = gmtime($now - $days*86400);

diff --git a/pullimap.1 b/pullimap.1
index 57a4adf873411bdcb2b7f5e69ee4efe520780edc..d4ef5029900e1d638a788a72b641a69f910d3645 100644 (file)
--- a/pullimap.1
+++ b/pullimap.1
@@ -116,7 +116,7 @@ criterion ignoring time and timezone.)
 If \fIpurge\-after\fR is set to \(lq0\(rq then messages are deleted
 immediately after delivery.  Otherwise \fBPullIMAP\fR issues an IMAP
 SEARCH command to list old messages; if \fB\-\-idle\fR is set then the
-SEARCH command is issued again every 6 hours.
+SEARCH command is issued again every 12 hours.
 
 .TP
 .I type