diff options
Diffstat (limited to 'lib/PublicInbox/Inbox.pm')
-rw-r--r-- | lib/PublicInbox/Inbox.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm index 90ac9ebb..43cf15ba 100644 --- a/lib/PublicInbox/Inbox.pm +++ b/lib/PublicInbox/Inbox.pm @@ -9,6 +9,7 @@ use PublicInbox::Git; use PublicInbox::MID qw(mid2path); use Devel::Peek qw(SvREFCNT); use PublicInbox::MIME; +use POSIX qw(strftime); my $cleanup_timer; eval { @@ -316,4 +317,22 @@ sub msg_by_mid ($$;$) { $smsg ? msg_by_smsg($self, $smsg, $ref) : undef; } +sub recent { + my ($self, $opts) = @_; + my $qs = ''; + my $srch = search($self); + if (!$opts->{offset}) { + # this complicated bit cuts /$INBOX/ loading time by + # over 400ms on my system: + my ($min, $max) = mm($self)->minmax; + my $n = $max - $opts->{limit}; + $n = $min if $n < $min; + for (; $qs eq '' && $n >= $min; --$n) { + my $smsg = $srch->lookup_article($n) or next; + $qs = strftime('d:%Y%m%d..', gmtime($smsg->ts)); + } + } + $srch->query($qs, $opts); +} + 1; |