diff options
-rwxr-xr-x | pullimap | 8 | ||||
-rw-r--r-- | pullimap.1 | 4 |
2 files changed, 7 insertions, 5 deletions
@@ -234,11 +234,11 @@ sub purge() { return unless 1<$uidnext; my $set = "1:".($uidnext-1); - my $now = time; - return if defined $LAST_PURGED and $now - $LAST_PURGED < 6*3600; - $LAST_PURGED = $now; - unless ($days == 0) { + my $now = time; + return if defined $LAST_PURGED and $now - $LAST_PURGED < 6*3600; # purge every 6h + $LAST_PURGED = $now; + my @now = gmtime($now - $days*86400); my @m = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/; # RFC 3501's date-month my $date = sprintf("%02d-%s-%04d", $now[3], $m[$now[4]], $now[5]+1900); @@ -114,7 +114,9 @@ Retention period (in days), after which messages are removed from the IMAP server. (The value is at best 24h accurate due to IMAP SEARCH criterion ignoring time and timezone.) If \fIpurge\-after\fR is set to \(lq0\(rq then messages are deleted -immediately after delivery. +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. .TP .I type |