From d0d439750b572250ae00b595d9a742ccbb7b8a4e Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Tue, 8 Mar 2016 00:01:02 +0100
Subject: [PATCH] pullimap: set keepalive options on socket.

---
 pullimap | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pullimap b/pullimap
index db3090f..0e31a90 100755
--- a/pullimap
+++ b/pullimap
@@ -219,7 +219,11 @@ sub smtp_send(@) {
 # the remote mailbox
 #
 $CONF->{'logger-fd'} = \*STDERR if $CONFIG{debug};
-my $IMAP = Net::IMAP::InterIMAP::->new( %$CONF, %CONFIG{qw/quiet debug/}, name => $ARGV[0] );
+my $IMAP = do {
+    my %config = (%$CONF, %CONFIG{qw/quiet debug/}, name => $ARGV[0]);
+    $config{keepalive} = 1 if defined $CONFIG{idle} and $config{type} ne 'tunnel';
+    Net::IMAP::InterIMAP::->new( %config );
+};
 
 # Remove messages with UID < UIDNEXT and INTERNALDATE at most
 # $CONF->{'purge-after'} days ago.
-- 
2.39.2