imap: prioritize AUTH=ANONYMOUS clients

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

diff --git a/lib/PublicInbox/IMAPD.pm b/lib/PublicInbox/IMAPD.pm
index 5368ff040edd457111cdb3984f722ebd67b5904f..dd0d2c53905a94012328b2bd3094f0026b9a159a 100644 (file)
--- a/lib/PublicInbox/IMAPD.pm
+++ b/lib/PublicInbox/IMAPD.pm
@@ -87,4 +87,11 @@ sub idler_start {
        $_[0]->{idler} //= PublicInbox::InboxIdle->new($_[0]->{pi_cfg});
 }
 
+sub event_step { # called vai requeue for low-priority IMAP clients
+       my ($self) = @_;
+       my $imap = shift(@{$self->{-authed_q}}) // return;
+       PublicInbox::DS::requeue($self) if scalar(@{$self->{-authed_q}});
+       $imap->event_step; # PublicInbox::IMAP::event_step
+}
+
 1;