From 7905984d65f50b39818469bb7fa745e1fa9c953b Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 18 Feb 2012 01:52:59 -0500 Subject: [PATCH] Added configuration TimeOut and Delete on Retreive options --- mystic/mis_client_pop3.pas | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/mystic/mis_client_pop3.pas b/mystic/mis_client_pop3.pas index ba4053a..bd9c41e 100644 --- a/mystic/mis_client_pop3.pas +++ b/mystic/mis_client_pop3.pas @@ -75,9 +75,6 @@ Type Implementation Const - POP3TimeOut : SmallInt = 900; { MCFG? } - DeleteOnRETR : Boolean = False; { MCFG? } - re_OK = '+OK '; re_Error = '-ERR '; @@ -258,7 +255,7 @@ Begin End; For Count := 1 to MailSize Do Begin - If MailInfo[Count].Deleted or (MailInfo[Count].GotRETR and DeleteOnRETR) Then Begin + If MailInfo[Count].Deleted or (MailInfo[Count].GotRETR and bbsConfig.inetPOP3Delete) Then Begin MsgBase^.YoursFirst(User.RealName, User.Handle); While MsgBase^.YoursFound Do Begin @@ -447,7 +444,7 @@ Begin Client.WriteLine(re_Greeting); Repeat - If Client.WaitForData(POP3TimeOut * 1000) = 0 Then Break; + If Client.WaitForData(bbsConfig.inetPOP3TimeOut * 1000) = 0 Then Break; If Terminated Then Exit;