Не могу получить нормальный IdMessage1.Subject

[velovich]

Здравстуйте!
Меня послал сюда min@y™ с expert.delphi.int.ru, сказал тут мне точно помогут.
пытаюсь получить письмо:
----------------------------------------
IdPOP31:=tIdPOP3.Create;
IdSSHandler1:=TIdSSLIOHandlerSocket OpenSSL.Create;
IdPOP31.IOHandler:=IdSSHandler1;
IdPOP31.UseTLS:=utUseImplicitTLS;
IdMessage1:=tidmessage.Create;
IdPOP31.Host:='pop.yandex.ru';
IdPOP31.Port:=995;
IdPOP31.Username:='info@forummm.biz ';
IdPOP31.Password:='123';
IdPOP31.Connect;
i1:=IdPOP31.CheckMessages;
showmessage(inttostr(i1));
IdPOP31.Retrieve(1,IdMessage1);
IdMessage1.SaveToFile('c:\17.123');
----------------------------------------
в теме письма все символы кириллицы оказываются "3f"
причём почтовый клиент foxmail показывает тему нормально у этого же письма

[Sciv]

Ну я как-то так мессаги для мыла делал:

function CreateMessage(Subject: string; MessageText: string; Recipients: string; Sender: string): TIdMessage;
begin
  Result := TIdMessage.Create(nil);
  Result.Recipients.EMailAddresses := Recipients;
  Result.CharSet:='koi8-r';
  Result.Body.Add('Результаты запуска автотестов за дату: ' + DateToStr(Now()));
  Result.Subject := Subject;
  Result.From.Address := Sender;
  Result.IsEncoded := true;
end;

[velovich]

Отправлять я умею. Мне получить надо. Скомпилил indy maildemo, та же проблема. В теме писем "3F" вместо русских букв.

[velovich]

решил вопрос через RetrieveRaw