treewide: ditch inbox->recent method

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

diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm
index 3f70e69d53d3229e4a5a78bde97ce3ff1b31c571..8ac7eb302a0c6ed9ef7b9b97f53888bcc115d866 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);
                }
@@ -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;