% diff fml.pl.org fml.pl
14c14
< $Rcsid = 'fml [fml 4.0 STABLE (20040215/4.0.4_BETA)]';
---
> $Rcsid = 'fml [fml 4.0 STABLE (20040215/4.0.4_BETA/tumori.nu-custom)]';
863a864,866
> use Encode qw(decode);
> use Jcode;
> my $code, $tmpsubject;
865c868,874
< $e{'h:Subject:'} = &StripBracket($_);
---
> $tmpsubject = decode('MIME-header',$_);
> $code = getcode($tmpsubject);
> if ($code eq "ascii") {
> $e{'h:Subject:'} = &StripBracket($_);
> } else {
> $e{'h:Subject:'} = jcode(&StripBracket($tmpsubject))->mime_encode;
> }
|