X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FSearchThread.pm;h=8b2cb8059db94043affbbf82abbfbea2eddb57ba;hp=ab2f1a84adfb990a55395deccb8b749763b10336;hb=906393b801050e303d2ec2a660c85de4a5fa4740;hpb=eaa56562a0a09d9e8ecf3f2371dda20645bd82f3 diff --git a/lib/PublicInbox/SearchThread.pm b/lib/PublicInbox/SearchThread.pm index ab2f1a84..8b2cb805 100644 --- a/lib/PublicInbox/SearchThread.pm +++ b/lib/PublicInbox/SearchThread.pm @@ -20,6 +20,7 @@ package PublicInbox::SearchThread; use strict; use warnings; +use PublicInbox::MID qw($MID_EXTRACT); sub thread { my ($msgs, $ordersub, $ctx) = @_; @@ -67,7 +68,7 @@ sub _add_message ($$) { # everything is perfectly referenced, only the last ref # matters. my $prev; - foreach my $ref ($refs =~ m/<([^>]+)>/g) { + foreach my $ref ($refs =~ m/$MID_EXTRACT/go) { # Find a Container object for the given Message-ID my $cont = _get_cont_for_id($id_table, $ref);