quiet "Complex regular subexpression recursion limit" warnings

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

diff --git a/lib/PublicInbox/SearchIdx.pm b/lib/PublicInbox/SearchIdx.pm
index fe00df53c268ffbc77bd4872fa6fb7ab5b4918e0..89d8bc2b282dbf64bc71d87b1d1e1fb66b4fef24 100644 (file)
--- a/lib/PublicInbox/SearchIdx.pm
+++ b/lib/PublicInbox/SearchIdx.pm
@@ -302,7 +302,7 @@ sub index_xapian { # msg_iter callback
        defined $s or return;
 
        # split off quoted and unquoted blocks:
-       my @sections = split(/((?:^>[^\n]*\n)+)/sm, $s);
+       my @sections = PublicInbox::MsgIter::split_quotes($s);
        $part = $s = undef;
        index_body($self, $_, /\A>/ ? 0 : $doc) for @sections;
 }