mid: add $MID_EXTRACT regexp for export

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

diff --git a/lib/PublicInbox/SearchThread.pm b/lib/PublicInbox/SearchThread.pm
index ab2f1a84adfb990a55395deccb8b749763b10336..8b2cb8059db94043affbbf82abbfbea2eddb57ba 100644 (file)
--- 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);