searchview: show full (&x=t) messages in ascending chronlogical order

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

diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay
index bfcea0a3c366cf9833a6c603c5391750387e23f8..3c3fdf4857d239fe48462ffb72bc70950bae30d0 100755 (executable)
--- a/scripts/ssoma-replay
+++ b/scripts/ssoma-replay
@@ -29,7 +29,7 @@ use strict;
 use Email::Simple;
 use URI::Escape qw/uri_escape_utf8/;
 use File::Temp qw/tempfile/;
-my ($fh, $filename) = tempfile('pi-replay-XXXXXXXX');
+my ($fh, $filename) = tempfile('ssoma-replay-XXXXXXXX', TMPDIR => 1);
 my $msg = eval {
        local $/;
        Email::Simple->new(<STDIN>);
@@ -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)) {