anchor.diff:    strict private
       procedure AddSSLHandler(aSMTP : TIdSMTP);
       procedure InitSASL(aSMTP : TIdSMTP; const aUserName, aPassword : String);
  +    function ExtractDomain(const aMailAddress: String): String;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:   IdSASL_CRAM_SHA1, IdSASL, IdSASLUserPass, IdSASL_CRAMBase, IdSASL_CRAM_MD5,
    IdSASLSKey, IdSASLPlain, IdSASLOTP, IdSASLExternal, IdSASLDigest,
    IdSASLAnonymous, IdUserPassProvider,
    mLog;
  
  
  type
  
negative.code:     if FBCCRecipients <> '' then
        tmpMessage.BccList.EMailAddresses:= FBCCRecipients;
      tmpMessage.Subject:= FSubject;
      tmpMessage.MsgId:= '<' + GenerateRandomIdString(30) + '@' + ExtractDomain(FSenderMailAddress) + '>';
      tmpMessage.UID:= GenerateRandomIdString(30);
  
      logger.Debug('To: ' + tmpMessage.Recipients.EMailAddresses);
      logger.Debug('CC: ' + tmpMessage.CCList.EMailAddresses);
  