Мимовольная транслитерация текста IdPOP3 в Indy 10

[Роман Радер]

Написал 2 одинаковых программы в Delphi 7 и Delphi 2009:

IdPOP31.Host:='pop.mail.ru';
IdPOP31.Username:='xxxxx';
IdPOP31.Password:='xxxxx';
IdPOP31.Connect;
IdPOP31.Retrieve(1,idmessage1);
IdPOP31.Disconnect;
memo1.Text:=idmessage1.Body.Text;

В 7 делфи вместо русских букв - абракадабра в koi8-u. Перекодировать - сами понимаете, не проблема.
А вот в 2009 делфи все русские буквы... транслитерировались в английские (при чем какой-то своей таблицей)! Причем так происходит не всегда. В частности, пришло письмо от .UA Registration System [no-reply@auto.uanic.ua]

...
--------[ tEHN&^NA PEREW&RKA ]--------

** Error: sERWER NE W&DPOW&DA$ ABO DOMEN NE ZNAJDENO NA WKAZANOMU SERWER&
...

хотя в других почтовых клиентах - нормальный украинский текст:

--------[ Технічна перевірка ]--------

** Error: Сервер не відповідає або домен не знайдено на вказаному сервері:

Письма которые я отправляю сам себе в plain/text доходят нормальной koi абракадаброй)

[Квэнди]

А кодировка в заголовках письма какая указана ?

[Роман Радер]

кодировка koi8-u.
перепроверил на другом сервере - тоже самое => перекодировка происходит уже после получения. После трассировки indy-кода вижу что проблема в кодировке (7bit) хотя в письме 8bit. может быть проблема тут.

From no-reply@auto.uanic.ua Sun May 17 19:05:34 2009
Return-path: <no-reply@auto.uanic.ua>
Received: from [81.23.23.225] (port=55943 helo=golf.hostmaster.net.ua)
by mx46.mail.ru with esmtp
id 1M5hvi-000Lzr-00
for zmailrom@mail.ru; Sun, 17 May 2009 19:05:34 +0400
Received-SPF: none (mx46.mail.ru: 81.23.23.225 is neither permitted nor denied by domain of auto.uanic.ua) client-ip=81.23.23.225; envelope-from=no-reply@auto.uanic.ua; helo=golf.hostmaster.net.ua;
X-Mru-PTR: golf.hostmaster.net.ua
X-Mru-NR: 1
X-Mru-OF: unknown (ethernet/modem)
X-Mru-RC: UA
Received: from mailnull by golf.hostmaster.net.ua with local (Exim 4.68 (FreeBSD))
(envelope-from <no-reply@auto.uanic.ua>)
id 1M5hvh-000ECK-KS; Sun, 17 May 2009 18:05:33 +0300
From: ".UA Registration System" <no-reply@auto.uanic.ua>
Errors-To: no-reply@auto.uanic.ua
To: zmailrom@mail.ru
Reply-To: no-reply@auto.uanic.ua
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-u
Content-Transfer-Encoding: 8bit
Subject: FAILED: [ADD romanrader.org.ua]
References: <E1M5hv3-000AR5-00.zmailrom-mail-ru@mx40.mail.ru>
In-Reply-To: <E1M5hv3-000AR5-00.zmailrom-mail-ru@mx40.mail.ru>
Message-Id: <E1M5hvh-000ECK-KS@golf.hostmaster.net.ua>
Date: Sun, 17 May 2009 18:05:33 +0300
X-Spam: Not detected
X-Mras: Ok

[Роман Радер]

Впринципе решил проблему таким способом:

        if not POP3.RetrieveHeader(n,IdMessage) then continue;
        if IdMessage.Headers.Values['Content-Transfer-Encoding']='8bit' then
        begin
          POP3.SendCmd('RETR ' + IntToStr(n), '');
          POP3.IOHandler.Capture(IdMessage.Body, '.', True, en8bit);
        end else
          POP3.Retrieve(n,IdMessage);

[Квэнди]

Поставь 8bit
по аналогии
http://programmersforum.ru/showpost....18&postcount=2