http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/IMAPsearchqp.pm
'(' . join ( ' ' , @ $child ). ')' : $child ->[ 0 ]); 1 ; } sub yyyymmdd ($) { my ( $item ) = @_ ; my ( $dd , $mon , $yyyy ) = split ( /-/ , $item ->{ date }, 3 ); my $mm = $MM { $mon } // die "BAD month: $mon " ; wantarray ? ( $yyyy , $mm , sprintf ( ' %02u ' , $dd )) : timegm ( 0 , 0 , 0 , $dd , $mm - 1 , $yyyy ); } sub SENTSINCE { my ( $self , $item ) = @_ ; my ( $yyyy , $mm , $dd ) = yyyymmdd ( $item ); push @ { $self ->{ xap }}, "d: $yyyy $mm $dd .." ; my $sql = $self ->{ sql } or...