anchor.diff:  uses
     sysutils,
     IdPOP3,
  -  IdMessage, IdMessageBuilder, IdAttachment, IdText,
  +  IdMessage, IdMessageBuilder, IdAttachment, IdText, IdStrings,
     IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  -  IdMessageClient, IdSMTPBase, IdBaseComponent, IdIOHandler,
  -  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdSASLLogin,
  -  IdSASL_CRAM_SHA1, IdSASL, IdSASLUserPass, IdSASL_CRAMBase, IdSASL_CRAM_MD5,
  -  IdSASLSKey, IdSASLPlain, IdSASLOTP, IdSASLExternal, IdSASLDigest,
  +  IdBaseComponent, IdIOHandler,
  +  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdSASLLogin,
  +  IdSASL_CRAM_SHA1, IdSASL, IdSASLUserPass, IdSASL_CRAM_MD5,
  +  IdSASLSKey, IdSASLPlain, IdSASLOTP, IdSASLExternal,
     IdSASLAnonymous, IdUserPassProvider,
     mUtility{$IFDEF MLOG_AVAILABLE}, mLog{$ENDIF};
   
  
positive.code: 
  { TReceivedMail }
  
  constructor TReceivedMail.Create;
  begin
    FSubject := '';
  
negative.code: procedure TReceivedMail.SaveToFolder(const aFolder: String);
  var
    i: integer;
    ff: String;
  begin
    if FBody.Count > 0 then
      FBody.SaveToFile(CheckExistingFile(IncludeTrailingPathDelimiter(aFolder) + 'body.txt'));
  