anchor.diff:        newAttachment := aReceivedMail.AddAttachment;
         TIdAttachment(aIdMessage.MessageParts.Items[i]).SaveToStream(newAttachment.FileData);
         newAttachment.FileName := TIdAttachment(aIdMessage.MessageParts.Items[i]).FileName;
  +      newAttachment.Analyze;
       end
       else if aIdMessage.MessageParts.Items[i] is TIdText then
       begin
  
positive.code: end;
  
  { TReceivedMailAttachment }
  
  constructor TReceivedMailAttachment.Create;
  begin
  
negative.code:   strict private
      FFileName : String;
      FFileData : TMemoryStream;
    private
      procedure Analyze;
    public
      constructor Create;
      destructor Destroy; override;
  