thh/usenet-tools
1
0
Fork 0
Code Issues Pull requests Releases Activity

Compare commits

base: thh:7a08e41148d2b2488c6c260f484b523db500d1c0
Branches Tags
thh:master
..
compare: thh:2a780f9eed69b4856e3a89d8682d0eed37c4e7b5
Branches Tags
thh:master

1 commit
7a08e41148 ... 2a780f9eed

Author SHA1 Message Date
Thomas Hochstein
2a780f9eed Fix encoding. 
Signed-off-by: Thomas Hochstein <thh@thh.name>
 2026-05-30 12:07:58 +02:00
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mew.pl
View file

@ -17,10 +17,9 @@ my $input = join (' ',@ARGV);
utf8::decode($input); utf8::decode($input);
if ($input =~ /[\x80-\x{ffff}]/o) { if ($input =~ /[\x80-\x{ffff}]/o) {
$output = encode('MIME-Q', $input); print encode('MIME-Q', $input);
$output =~ s/=20/_/g;
} else { } else {
$output = decode('MIME-Q', $input); print decode('MIME-Q', $input);
}; };
print "$output\n"; print "\n";