From 906393b801050e303d2ec2a660c85de4a5fa4740 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 1 Apr 2020 06:16:20 +0000 Subject: mid: add $MID_EXTRACT regexp for export This allows us to consistently enforce the same Message-ID extraction rules everywhere and makes it easier for us to make changes in the future. Update scripts/ssoma-replay, as well, but don't rely on PublicInbox::* modules in that since it's legacy and public-inbox was never a dependency of ssoma. --- lib/PublicInbox/SearchThread.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/PublicInbox/SearchThread.pm') 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); -- cgit v1.2.3-24-ge0c7