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

diff --git a/Changelog b/Changelog
index 755c8cbca66465cbca28764e8edbe636b007b5b6..36cbb23793853465925833b1e1c244ffb167884f 100644 (file)
--- 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 7a1ba3424a568c0d5b4bdba829939dddae81f1fc..6f148b73ee8564f13340d15e102b6a1f8100e9c3 100644 (file)
--- 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;