aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2017-05-29 18:04:19 +0200
committerGuilhem Moulin <guilhem@fripost.org>2017-05-29 18:04:19 +0200
commit6fca0d67e7a657452de154e74ad02bf3657db5a1 (patch)
tree0badec4e7af70802c52d7db16f8a0265519a47dc
parent329738ebb74815d8a49feee63efb23d9baa557ee (diff)
Ensure the lower bound of UID ranges is at least 1.
-rw-r--r--Changelog1
-rw-r--r--lib/Net/IMAP/InterIMAP.pm2
2 files changed, 2 insertions, 1 deletions
diff --git a/Changelog b/Changelog
index 755c8cb..36cbb23 100644
--- a/Changelog
+++ b/Changelog
@@ -3,6 +3,7 @@ interimap (0.4) UNRELEASED
* pullimap: replace non RFC 5321-compliant envelope sender addresses
(received by the IMAP FETCH ENVELOPE command) by the null sender address
<>.
+ - Ensure the lower bound of UID ranges is at least 1.
-- Guilhem Moulin <guilhem@guilhem.org> Tue, 06 Dec 2016 17:37:01 +0100
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 7a1ba34..6f148b7 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -1185,7 +1185,7 @@ sub pull_new_messages($$&@) {
do {
my $range = '';
my $first;
- my $since = $self->{_PCACHE}->{$mailbox}->{UIDNEXT} // 1;
+ my $since = $self->{_PCACHE}->{$mailbox}->{UIDNEXT} || 1;
foreach my $uid (@ignore) {
if ($since < $uid) {
$first //= $since;