MIME::Words

[Honza Pazdziora]

> 
> use MIME::Words qw(:all);
> my $w = encode_mimewords('Subject: Tučňák patagonský',
> 	('Charset'=>'ISO-8859-2'));
> print $w, "\n";
> 
> 	dostanu následující:
> 
> Subject: =?ISO-8859-2?Q?Tu=E8=F2=E1k?= =?ISO-8859-2?Q?patagonsk=FD?=
> 
> 	Pokud na toto dám decode_mimewords(), dostanu
> zpět patagonského tučňáka. Podle mého názoru tímto jsou obě tyto

Jakože první chyba je, že není zakódována ta mezera a druhá to, že při
rozkódování není ignorována? To je asi pravda, ale otázka je, jestli
tím neuděláš zmatek ve stávajících aplikacích (jiných lidí), které
předpokládají, že

	encode_mimewords('Subject: Test')

vrátí
	Subject: Test

Ale myslím, že za rozvíření problému v clp.(modules|moderated)
případně s autem nic nedáš.

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 make vmlinux.exe			-- SGI Visual Workstation Howto
 I just got back from my vacation -- sorry for possibly delayed answer.