исправление заголовков

[Igor Sysoev]

On Thu, Nov 26, 2009 at 02:21:01PM +0300, Maxim Dounin wrote:

> Hello!
> 
> On Thu, Nov 26, 2009 at 04:55:38PM +0600, Denis F. Latypoff wrote:
> 
> > Hello Igor,
> > 
> > Thursday, November 26, 2009, 4:43:29 PM, you wrote:
> > 
> > > Может кто-нибудь подсказать, что из перлового многообразия модулей
> > > умеет корректно преобразовывать заголовки ?
> > 
> > > Вот это:
> > 
> > > # $Id: Encode.pm,v 2.35 2009/07/13 00:49:38 dankogai Exp $
> > > use Encode qw/encode decode/;
> > 
> > > sub repack_utf_hdr($) {
> > >     my($hdr) = shift;
> > 
> > -     return encode('MIME-Header', decode('MIME-Header', $hdr));
> > +     return encode('MIME-Header', encode('UTF-8', decode('MIME-Header', $hdr)));
> 
> Это не поможет ему производить mime-слова допустимой длины, увы.

Там длина не особо критична, но это исправление просто кодирует utf-8
ещё раз utf'ом.


-- 
Игорь Сысоев
http://sysoev.ru