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

Compare commits

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

2 commits
2a780f9eed ... 7a08e41148

Author SHA1 Message Date
Thomas Hochstein
7a08e41148 mew: Use minimal encoding. 
Signed-off-by: Thomas Hochstein <thh@thh.name>
 2026-05-30 12:48:59 +02:00
Thomas Hochstein
a85252732b mew: Fix encoding. 
Signed-off-by: Thomas Hochstein <thh@thh.name>
 2026-05-30 12:48:18 +02:00
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); utf8::decode($input);
if ($input =~ /[\x80-\x{ffff}]/o) { if ($input =~ /[\x80-\x{ffff}]/o) {
print encode('MIME-Q', $input); $output = encode('MIME-Q', $input);
$output =~ s/=20/_/g;
} else { } else {
print decode('MIME-Q', $input); $output = decode('MIME-Q', $input);
}; };
print "\n"; print "$output\n";