Ensure the lower bound of UID ranges is at least 1.

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;