anchor.diff:    Result := Self;
   end;
   
  +function TGetMailPop3.SetAcceptOnlyMailFromSpecificDomain: TGetMailPop3;
  +begin
  +  FAcceptOnlyMailFromSpecificDomain:= true;
  +  Result := Self;
  +end;
  +
  +function TGetMailPop3.SetAllowedSenderDomain(const aAllowedSenderDomain: String): TGetMailPop3;
  +begin
  +  FAllowedSenderDomain:= aAllowedSenderDomain;
  +  Result := Self;
  +end;
  +
   {$IFDEF MLOG_AVAILABLE}
   initialization
     logger := logManager.AddLog('mGetMail');
  
positive.code:     FPort: Integer;
      FUserName: String;
      FPassword: String;
      FSSLConnection : boolean;
      FTLSConnection : boolean;
      FReceivedMails : TObjectList;
  
negative.code:           msg := TIdMessage.Create;
            try
              tmpPop3.Retrieve(i, msg);
              if (not FAcceptOnlyMailFromSpecificDomain) or (CompareText(msg.From.Domain, FAllowedSenderDomain) = 0) then
                ImportMessage(msg, AddReceivedMail)
                {$IFDEF MLOG_AVAILABLE}
              else
                logger.Info('Discarded mail from ' + msg.From.Address)
                {$ENDIF}
              ;
              tmpPop3.Delete(i);
            finally
              msg.Free;
            end;
  