+sub recent_msgs {
+ my ($ctx) = @_;
+ my $ibx = $ctx->{-inbox};
+ my $max = $ibx->{feedmax};
+ my $qp = $ctx->{qp};
+ my $v = $ibx->{version} || 1;
+ if ($v > 2) {
+ die "BUG: unsupported inbox version: $v\n";
+ }
+ if (my $srch = $ibx->search) {
+ my $o = $qp ? $qp->{o} : 0;
+ $o += 0;
+ $o = 0 if $o < 0;
+ my $res = $ibx->recent({ limit => $max, offset => $o });
+ my $next = $o + $max;
+ $ctx->{next_page} = "o=$next" if $res->{total} >= $next;
+ return $res->{msgs};
+ }
+