X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FInbox.pm;h=8ac7eb302a0c6ed9ef7b9b97f53888bcc115d866;hb=be55542acc90572da54d828313c2416ae1c902b1;hp=3f70e69d53d3229e4a5a78bde97ce3ff1b31c571;hpb=213e03e1f9624faa4a3a9813f1eac5035c1eb62a;p=public-inbox.git diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm index 3f70e69d..8ac7eb30 100644 --- 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); } @@ -351,11 +351,6 @@ sub msg_by_mid ($$) { $smsg ? msg_by_smsg($self, $smsg) : msg_by_path($self, mid2path($mid)); } -sub recent { - my ($self, $opts, $after, $before) = @_; - $self->over->recent($opts, $after, $before); -} - sub modified { my ($self) = @_; if (my $over = $self->over) { @@ -431,4 +426,6 @@ sub mailboxid { # rfc 8474, 8620, 8621 sprintf('-%x', uidvalidity($self) // 0) } +sub thing_type { 'public inbox' } + 1;