about summary refs log tree commit homepage
path: root/lib/PublicInbox/POP3.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2022-07-20 09:24:13 +0000
committerEric Wong <e@80x24.org>2022-07-20 16:52:14 +0000
commitf40f4695c0cb576a4e00819da45c1bea8f548aec (patch)
tree58dcdd1bb4afd8a66759a825a98112953cb404f9 /lib/PublicInbox/POP3.pm
parent6d01d5b60dbfc3319092cebdda7c3a371eafbbc6 (diff)
downloadpublic-inbox-f40f4695c0cb576a4e00819da45c1bea8f548aec.tar.gz
This is documented in RFC 2595, and POP3 clients may rely on
seeing "STLS" in CAPA output to initiate TLS negotiation.
Diffstat (limited to 'lib/PublicInbox/POP3.pm')
-rw-r--r--lib/PublicInbox/POP3.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/PublicInbox/POP3.pm b/lib/PublicInbox/POP3.pm
index 2c20c84b..ec73893c 100644
--- a/lib/PublicInbox/POP3.pm
+++ b/lib/PublicInbox/POP3.pm
@@ -343,15 +343,17 @@ sub cmd_dele {
 # 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
+RESP-CODES\r$STLS
 .\r
 EOM
 }