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

mew: Fix encoding.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-05-30 12:07:58 +02:00
parent 5d910a9d76
commit a85252732b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mew.pl
View file

@ -8,11 +8,13 @@
# Copyright (c) 2023 Thomas Hochstein <thh@thh.name>
use utf8;
use open qw(:std :encoding(UTF-8));
use Encode;
use MIME::QuotedPrint;
use MIME::Base64;
my $input = join (' ',@ARGV);
utf8::decode($input);
if ($input =~ /[\x80-\x{ffff}]/o) {
print encode('MIME-Q', $input);