It seems worthless to support CLOSE for read-only inboxes, but
mutt sends it, so don't return a BAD error with proper use.
login_success($self, $tag);
}
+sub cmd_close ($$) {
+ my ($self, $tag) = @_;
+ delete $self->{ibx} ? "$tag OK Close done\r\n"
+ : "$tag BAD No mailbox\r\n";
+}
+
sub cmd_logout ($$) {
my ($self, $tag) = @_;
delete $self->{logged_in};
is($r2->{2}->{'BODY[HEADER.FIELDS (MESSAGE-ID)]'},
'Message-ID: <20200418222508.GA13918@dcvr>'."\r\n\r\n",
'BODY.PEEK[HEADER.FIELDS ...] drops .PEEK');
-
+ok($mic->close, 'CLOSE works');
+ok(!$mic->close, 'CLOSE not idempotent');
ok($mic->logout, 'logged out');
$td->kill;