use raw header for Message-ID

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

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 2acb4c83b0175ad1d2f7550bda4058673a600366..369be686173024b63013e1316f29652f9d15f6ef 100644 (file)
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -147,8 +147,8 @@ sub invalid_list_mid {
                if ($mid = mid2blob($ctx)) {
                        require Email::Simple;
                        use PublicInbox::MID qw/mid_clean/;
-                       $mid = Email::Simple->new($mid);
-                       $ctx->{mid} = mid_clean($mid->header('Message-ID'));
+                       my $s = Email::Simple->new($mid);
+                       $ctx->{mid} = mid_clean($s->header('Message-ID'));
                }
        }
        undef;