Måske svarede jeg lidt uklart ...
Jeg mente ikke, at du skulle angive encoding=\'quoted-printable\'. Jeg mente, at selve subject-teksten skal encodes.
Dvs. at når du gør noget i den her retning :
$top = build MIME::Entity From => \'me@myhost.com\',
To => \'you@yourhost.com\',
Subject => \'Kærgården\',
Data => \\@my_message;
Så skal du i virkeligheden lave følgende :
$top = build MIME::Entity From => \'me@myhost.com\',
To => \'you@yourhost.com\',
Subject => \'=?iso-8859-1?q?K=E6rg=E5rden?=\',
Data => \\@my_message;
Nu har jeg så kigget lidt på MIME::Entity, og den har IKKE en funktion til formålet. Men du kan bruge følgende (tror jeg, jeg har ikke prøvet) modul : MIME::Words (Beskrivelse på :
http://www.perldoc.com/perl5.6/lib/MIME/Words.html ). Den har funktioner til både encoding og decoding af ord. Så med den skulle du kunne skrive noget i den her stil :
encode_mimewords(\'Kærgården\')
hvilket burde give dig det ønskede resultat.
Jeg har ikke prøvet det af, men det skulle være det du har brug for iflg. specifikationen.
Jeg krydser fingre for det virker :-)