| Subject: | Lines in a message starting with * are ignored |
The ignore regexp in the process command (presumably designed to ignore response lines) will drop any lines of the message that start with '*'
$self->_process_cmd(
cmd => [FETCH => qq[$number rfc822]],
final => sub { pop @lines; \@lines },
process => sub { push @lines, $_[0] unless $_[0] =~ /^\*/ },
);
This is a serious problem. It should instead be counting the octets and comparing them with the number provided in the first line of the fetch response.