$self->{uid_max} = $self->{ibx}->over(1)->max;
\"+OK logged in\r\n";
} else {
- \"-ERR unable to lock maildrop\r\n";
+ \"-ERR [IN-USE] unable to lock maildrop\r\n";
}
}
$hdr .= "\r\n\r\n";
my @tmp = split(/^/m, $bdy);
$hdr .= join('', splice(@tmp, 0, $top_nr));
+ } elsif (exists $self->{expire}) {
+ $self->{expire} .= pack('S', $off + 1);
}
$$bref =~ s/^\./../gms;
$$bref .= substr($$bref, -2, 2) eq "\r\n" ? ".\r\n" : "\r\n.\r\n";
$self->msg_more("+OK message follows\r\n");
$self->write($bref);
- $self->{expire} .= pack('S', $off + 1) if exists $self->{expire};
$self->requeue;
}
# RFC 2449
sub cmd_capa {
my ($self) = @_;
+ my $STLS = !$self->{ibx} && !$self->{sock}->can('stop_SSL') &&
+ $self->{pop3d}->{accept_tls} ? "\nSTLS\r" : '';
$self->{expire} = ''; # "EXPIRE 0" allows clients to avoid DELE commands
- \<<EOM;
+ <<EOM;
+OK Capability list follows\r
TOP\r
USER\r
PIPELINING\r
UIDL\r
EXPIRE 0\r
+RESP-CODES\r$STLS
.\r
EOM
}