aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2016-03-08 00:01:02 +0100
committerGuilhem Moulin <guilhem@fripost.org>2016-03-08 00:05:30 +0100
commitd0d439750b572250ae00b595d9a742ccbb7b8a4e (patch)
tree9e127949b6a21763928bd6e524cf232a3c8430c4
parenta9a0501bc0ce2c5937e6e47cc0db8f2f0ac4ec18 (diff)
pullimap: set keepalive options on socket.
-rwxr-xr-xpullimap6
1 files changed, 5 insertions, 1 deletions
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.