for Andrew Neillans

Giganews Newsgroups
Subject: for Andrew Neillans
Posted by:  Marcello Scala (marcello.sca…@email.it)
Date: Wed, 16 Jul 2003

Hi Andy.
In your newest POP3Server demo, there is last duplicate procedure:

procedure TfrmMain.IdPOP3Server1CommandLIST(AThread: TIdPeerThread;
  AMessageNum: Integer);
begin
AThread.Connection.WriteLn('+OK 1 messages (40 octets)');
AThread.Connection.WriteLn('1 40');
AThread.Connection.WriteLn('.');
end;

This procedure is not correct because it's present this procedure:

procedure TfrmMain.IdPOP3Server1LIST(ASender: TIdCommand;
  AMessageNum: Integer);
begin
// Here you return a list of available messages to the client
ASender.Thread.Connection.WriteLn('+OK 1 40');
ASender.Thread.Connection.WriteLn('1 40');
ASender.Thread.Connection.WriteLn('.');
// The trailing . line is IMPORTANT!!
end;

i hope this is for you useful.

Regards Marcello

Replies