anchor.diff:    FTLSConnection:= false;
     FReceivedMails := TObjectList.Create(true);
     FAuthentication:= paBasicAuthentication;
  +  FAllowedSenderDomains := TStringList.Create;
   end;
   
   destructor TGetMailPop3.Destroy;
   begin
     FReceivedMails.Free;
  +  FAllowedSenderDomains.Free;
     inherited Destroy;
   end;
   
  
positive.code:     FUserName: String;
      FPassword: String;
      FAcceptOnlyMailFromSpecificDomain : boolean;
      FAllowedSenderDomain : String;
      FSSLConnection : boolean;
      FTLSConnection : boolean;
      FReceivedMails : TObjectList;
  
negative.code:           msg := TIdMessage.Create;
            try
              tmpPop3.Retrieve(i, msg);
              if (not FAcceptOnlyMailFromSpecificDomain) or (FAllowedSenderDomains.IndexOf(LowerCase(msg.From.Domain)) >= 0) then
                ImportMessage(msg, AddReceivedMail)
                {$IFDEF MLOG_AVAILABLE}
              else
  