www: inbox: favor "pop3://" over "pop://"

[public-inbox.git] / lib / PublicInbox / Inbox.pm

diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm
index 3f70e69d53d3229e4a5a78bde97ce3ff1b31c571..1f7f982da783fee8e847e98294828ace331832ab 100644 (file)
--- a/lib/PublicInbox/Inbox.pm
+++ b/lib/PublicInbox/Inbox.pm
@@ -285,9 +285,9 @@ sub pop3_url {
                my $group = $self->{newsgroup};
                my @urls;
                ($ps && $group) and
-                       @urls = map { m!\Apops?://! ? $_ : "pop://$_" } @$ps;
+                       @urls = map { m!\Apop3?s?://! ? $_ : "pop3://$_" } @$ps;
                if (my $mi = $self->{'pop3mirror'}) {
-                       my @m = map { m!\Apops?://! ? $_ : "pop://$_" } @$mi;
+                       my @m = map { m!\Apop3?s?://! ? $_ : "pop3://$_" } @$mi;
                        my %seen; # List::Util::uniq requires Perl 5.26+
                        @urls = grep { !$seen{$_}++ } (@urls, @m);
                }