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 98e33fd362fa7f277a544cb60d59ff5a5fe31adb..369be686173024b63013e1316f29652f9d15f6ef 100644 (file)
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -13,6 +13,7 @@ package PublicInbox::WWW;
 use 5.008;
 use strict;
 use warnings;
+use Plack::Request;
 use PublicInbox::Config qw(try_cat);
 use URI::Escape qw(uri_escape_utf8 uri_unescape);
 use constant SSOMA_URL => '//ssoma.public-inbox.org/';
@@ -146,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;