eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added configuration TimeOut and Delete on Retreive options

This commit is contained in:
mysticbbs 2012-02-18 01:52:59 -05:00
parent e12a159b20
commit 7905984d65
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/mis_client_pop3.pas
View File

@ -75,9 +75,6 @@ Type
Implementation Implementation
Const Const
POP3TimeOut : SmallInt = 900; { MCFG? }
DeleteOnRETR : Boolean = False; { MCFG? }
re_OK = '+OK '; re_OK = '+OK ';
re_Error = '-ERR '; re_Error = '-ERR ';
@ -258,7 +255,7 @@ Begin
End; End;
For Count := 1 to MailSize Do Begin 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); MsgBase^.YoursFirst(User.RealName, User.Handle);
While MsgBase^.YoursFound Do Begin While MsgBase^.YoursFound Do Begin
@ -447,7 +444,7 @@ Begin
Client.WriteLine(re_Greeting); Client.WriteLine(re_Greeting);
Repeat Repeat
If Client.WaitForData(POP3TimeOut * 1000) = 0 Then Break; If Client.WaitForData(bbsConfig.inetPOP3TimeOut * 1000) = 0 Then Break;
If Terminated Then Exit; If Terminated Then Exit;