www: use absolute URLs for coderepo URLs

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

diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm
index 0ad68810942b42094e76da2de56fb013bfdec21c..acd7f33843a7654b6895f70bfbd1ea9bdd441dea 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);
                }
@@ -409,6 +409,16 @@ sub uidvalidity { $_[0]->{uidvalidity} //= eval { $_[0]->mm->created_at } }
 
 sub eidx_key { $_[0]->{newsgroup} // $_[0]->{inboxdir} }
 
+# only used by NNTP, so we need ->mm anyways
+sub art_min { $_[0]->{-art_min} //= eval { $_[0]->mm(1)->min } }
+
+# used by IMAP, too, which tries to avoid ->mm (but ->{mm} is likely
+# faster since it's smaller iff available)
+sub art_max {
+       $_[0]->{-art_max} //= eval { $_[0]->{mm}->max } //
+                               eval { $_[0]->over(1)->max };
+}
+
 sub mailboxid { # rfc 8474, 8620, 8621
        my ($self, $imap_slice) = @_;
        my $pfx = defined($imap_slice) ? $self->{newsgroup} : $self->{name};
@@ -421,4 +431,6 @@ sub mailboxid { # rfc 8474, 8620, 8621
                sprintf('-%x', uidvalidity($self) // 0)
 }
 
+sub thing_type { 'public inbox' }
+
 1;