diff options
| author | Guilhem Moulin <guilhem@debian.org> | 2022-02-27 16:54:38 +0100 |
|---|---|---|
| committer | Guilhem Moulin <guilhem@debian.org> | 2022-02-27 16:54:38 +0100 |
| commit | 3656ac995b07c5cdeb881b88f371abf38cfb0bc4 (patch) | |
| tree | 4365cb82a3fb51decc6a1e2547b0e755df31456c /lib/Net/IMAP/InterIMAP.pm | |
| parent | 1c596d75696e8342e9b489ba0bc7b5e7009fa90e (diff) | |
| parent | 8ad5e5a218253a76eabf36bfd83f9e1a2a708377 (diff) | |
Merge tag 'v0.5.7' into debian/latest
Release version 0.5.7
Diffstat (limited to 'lib/Net/IMAP/InterIMAP.pm')
| -rw-r--r-- | lib/Net/IMAP/InterIMAP.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm index a171554..55a18a0 100644 --- a/lib/Net/IMAP/InterIMAP.pm +++ b/lib/Net/IMAP/InterIMAP.pm @@ -1,6 +1,6 @@ #---------------------------------------------------------------------- # A minimal IMAP4 client for QRESYNC-capable servers -# Copyright © 2015-2020 Guilhem Moulin <guilhem@fripost.org> +# Copyright © 2015-2022 Guilhem Moulin <guilhem@fripost.org> # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -16,7 +16,7 @@ # along with this program. If not, see <https://www.gnu.org/licenses/>. #---------------------------------------------------------------------- -package Net::IMAP::InterIMAP v0.5.6; +package Net::IMAP::InterIMAP v0.5.7; use v5.20.0; use warnings; use strict; @@ -1312,7 +1312,8 @@ sub pull_new_messages($$&@) { # 2^32-1: don't use '*' since the highest UID can be known already $range .= "$since:4294967295"; - $UIDNEXT = $cache->{UIDNEXT} // $self->panic(); # sanity check + $UIDNEXT = $cache->{UIDNEXT} // + $self->panic("Unknown UIDNEXT value - non-compliant server?"); $self->fetch($range, "($attrs)", sub($) { my $mail = shift; $UIDNEXT = $mail->{UID} + 1 if $UIDNEXT <= $mail->{UID}; |