Indy MTP multipart/mixed mit nur einem Teil

[hoika]

Hallo,
die folgende Zeile aus IdMessage.pas verursacht das Problem

FIsMsgSinglePartMime := (Encoding = meMIME) and (MessageParts.Count = 1) and IsBodyEmpty;

Hier wird in meinem FIsMsgSinglePartMime=True
und damit wird der Anhang in den Body geschrieben.

Quellcode sei dank habe ich das jetzt umschifft mit einer zusätzlichen Variable in TIdMessage (bSinglePartMime: Boolean)

Delphi-Quellcode:

if not bSinglePartMime then
begin
  FIsMsgSinglePartMime := (Encoding = meMIME) and (MessageParts.Count = 1) and IsBodyEmpty;
  FIsMsgSinglePartMime:= False;
end;

Zumindestens das Problem ist erledigt.