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

mew: Use minimal encoding.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-05-30 12:48:59 +02:00
parent a85252732b
commit 7a08e41148
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mew.pl
View file

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