On Tue, Mar 15, 2016 at 01:23:37PM +0100, Gabriel Philippe wrote:
>
> Quite funny, I spent some time on it yesterday...
>
> This is rfc2047 encoding [1]. It can probably use other charsets (not
> only UTF-8).
>
> The best way I found is to pipe it through perl -MEncode -ne 'print
> encode("UTF8",decode("MIME-Header",$_))'. But if Ionel's explanation
> is correct, a simple regexp and base64 -d would be quicker. Don't
> hesitate to give us feedback. :)
Well, while at it with the (in-)famous swiss-army chainsaw, I
came to fixing a few more things on the subject:
$osubject = $subject;
$subject = decode('MIME-Header', $subject);
$subject =~ s/\[.*?\] +//g if @ARGV && $ARGV[0] eq '[]';
$subject =~ s/((Re(\^[2-9]|\[[2-9]\])?|AW|WG|Antw(ort)?)\.?:\s*)+/Re: /ig;
$subject = encode((($subject =~ /[\000-\037\200-\377]/)?'MIME-Q':'UTF8'),
$subject);
print "Subject: $subject\n";
print "X-Original-Subject: $osubject\n" if $subject ne $osubject;
Bye,
Joerg
signature.asc
Description: PGP signature
