diff options
author | Eric Wong <e@80x24.org> | 2016-08-14 10:21:09 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-08-14 10:51:02 +0000 |
commit | 9d1e5fadd7d18f4c96ab0509d673040e34225a04 (patch) | |
tree | dd89df05390a2ca2e06448ec0acdbf741729d36e /lib/PublicInbox/Mbox.pm | |
parent | 1d0ce406b75fc174bee51e77efe5f10c61fb6098 (diff) | |
download | public-inbox-9d1e5fadd7d18f4c96ab0509d673040e34225a04.tar.gz |
Based on reading RFC 3986, it seems '@', ':', '!', '$', '&', "'", '; '(', ')', '*', '+', ',', ';', '=' are all allowed in path-absolute where we have the Message-ID. In any case, it seems '@' is fairly common in path components nowadays and too common in Message-IDs.
Diffstat (limited to 'lib/PublicInbox/Mbox.pm')
-rw-r--r-- | lib/PublicInbox/Mbox.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm index dc41548b..fd623f6d 100644 --- a/lib/PublicInbox/Mbox.pm +++ b/lib/PublicInbox/Mbox.pm @@ -6,8 +6,7 @@ package PublicInbox::Mbox; use strict; use warnings; -use PublicInbox::MID qw/mid_clean/; -use URI::Escape qw/uri_escape_utf8/; +use PublicInbox::MID qw/mid_clean mid_escape/; require Email::Simple; sub emit1 { @@ -29,7 +28,7 @@ sub msg_str { my $ibx = $ctx->{-inbox}; my $base = $ibx->base_url($ctx->{env}); my $mid = mid_clean($header_obj->header('Message-ID')); - $mid = uri_escape_utf8($mid); + $mid = mid_escape($mid); my @append = ( 'Archived-At', "<$base$mid/>", 'List-Archive', "<$base>", |