From 845d43fcc08089e87cd8cdf776ebc2345fd4e1ff Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Mon, 3 Aug 2020 18:24:30 +0200
Subject: libinterimap: fail when a capability to ENABLE is missing from the
 server's CAPABILITY listing.

---
 lib/Net/IMAP/InterIMAP.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Net/IMAP/InterIMAP.pm')

diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 1bff06e..751e705 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -506,6 +506,7 @@ sub new($%) {
                    : ($self->{enable});
     if (@extensions) {
         $self->fail("Server did not advertise ENABLE (RFC 5161) capability.") unless $self->_capable('ENABLE');
+        $self->fail("Server did not advertise $_ capability.") foreach grep { !$self->_capable($_) } @extensions;
         $self->_send('ENABLE '.join(' ',@extensions));
         my @enabled = @{$self->{_ENABLED} // []};
         $self->fail("Couldn't ENABLE $_") foreach
-- 
cgit v1.2.3