aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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;