From 85fd56f6f150dba0d74859a9d5e00f16d6b33955 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sat, 12 Mar 2016 22:14:39 +0100
Subject: Net::IMAP::InterIMAP, interimap: Add support for IMAP NOTIFY [RFC
 5465].

Unsollicited LIST responses are currently ignored, hence interimap won't
detect mailbox creation/deletion/subcription/unsubscription.
---
 pullimap | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index 8eb2ac0..3eb2b52 100755
--- a/pullimap
+++ b/pullimap
@@ -346,7 +346,6 @@ unless (defined $CONFIG{idle}) {
 
 $CONFIG{idle} = 1740 if defined $CONFIG{idle} and $CONFIG{idle} == 0; # 29 mins
 while(1) {
-    my $r = $IMAP->idle($CONFIG{idle}, sub() { $IMAP->has_new_mails($MAILBOX) });
-    pull() if $r;
+    pull() if $IMAP->idle($CONFIG{idle}, \&Net::IMAP::InterIMAP::has_new_mails);
     purge();
 }
-- 
cgit v1.2.3