mid: add $MID_EXTRACT regexp for export

[public-inbox.git] / scripts / ssoma-replay

diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay
index f20e0272ea78a0082a85ed144bb0d4b3b63964df..3e928084bb90dcba67712bc3d8129224651ad7da 100755 (executable)
--- a/scripts/ssoma-replay
+++ b/scripts/ssoma-replay
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2015-2019 all contributors <meta@public-inbox.org>
+# Copyright (C) 2015-2020 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # A work-in-progress, but one day I hope this script is no longer
@@ -52,7 +52,7 @@ if (defined $list_id) {
        if (defined $domain) {
                $archive_url = "https://$domain/$user/";
                my $mid = $header_obj->header('Message-Id');
-               if ($mid =~ /\A<(.+)>\z/) {
+               if ($mid =~ /<[ \t]*([^>]+)?[ \t]*>/s) {
                        $mid = $1;
                }
                $mid = uri_escape_utf8($mid,