anchor.diff:            msg := TIdMessage.Create;
             try
               tmpPop3.Retrieve(i, msg);
  -            ImportMessage(msg, AddReceivedMail);
  +            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;
  
positive.code:   Result := Self;
  end;
  
  {$IFDEF MLOG_AVAILABLE}
  initialization
    logger := logManager.AddLog('mGetMail');
  
negative.code:     FPort: Integer;
      FUserName: String;
      FPassword: String;
      FAcceptOnlyMailFromSpecificDomain : boolean;
      FAllowedSenderDomain : String;
      FSSLConnection : boolean;
      FTLSConnection : boolean;
      FReceivedMails : TObjectList;
  