X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fssoma-replay;h=3c3fdf4857d239fe48462ffb72bc70950bae30d0;hb=4ba430497bfb4763691b0ad8af573eb6ff420b96;hp=91c121dd2f0e3eda8b1232d8c8cdfbab325ec8d7;hpb=fcfef9420b639214b325dd17f8a7ae151c21f627;p=public-inbox.git

diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay
index 91c121dd..3c3fdf48 100755
--- a/scripts/ssoma-replay
+++ b/scripts/ssoma-replay
@@ -53,7 +53,8 @@ if (defined $list_id) {
 		if ($mid =~ /\A<(.+)>\z/) {
 			$mid = $1;
 		}
-		$mid = uri_escape_utf8($mid);
+		$mid = uri_escape_utf8($mid,
+				'^A-Za-z0-9\-\._~!\$\&\';\(\)\*\+,;=:@');
 		$header_obj->header_set('List-Archive', "<$archive_url>");
 
 		foreach my $h (qw(Help Unsubscribe Subscribe Owner)) {