From 320a4da020952e3a8b926535d03d49a28dea20d0 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sun, 12 Jun 2016 22:18:43 +0200
Subject: pullimap: enable locally unsetting the 'purge-after' option.

---
 pullimap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pullimap b/pullimap
index 054048c..e971f64 100755
--- a/pullimap
+++ b/pullimap
@@ -66,7 +66,7 @@ my $CONF = read_config( delete $CONFIG{config} // $NAME,
                       , 'deliver-method' => qr/\A([ls]mtp:\[.*\]:\d+)\z/
                       , 'deliver-ehlo' => qr/\A(\P{Control}+)\z/
                       , 'deliver-rcpt' => qr/\A(\P{Control}+)\z/
-                      , 'purge-after' => qr/\A(\d+)\z/
+                      , 'purge-after' => qr/\A(\d*)\z/
                       )->{$ARGV[0]};
 
 my ($MAILBOX, $STATE);
@@ -238,7 +238,7 @@ my $LAST_PURGED;
 sub purge() {
     my $days = $CONF->{'purge-after'} // return;
     my ($uidnext) = $IMAP->get_cache('UIDNEXT');
-    return unless 1<$uidnext;
+    return unless $days ne '' and 1<$uidnext;
     my $set = "1:".($uidnext-1);
 
     unless ($days == 0) {
-- 
cgit v1.2.3