Response Multi-line without "."

Giganews Newsgroups
Subject: Response Multi-line without "."
Posted by:  Pedro (pizquierdo20…@hotmail.com)
Date: Tue, 18 Oct 2005

Hi,

I have a Pop3 server with Indy10.

When the client asks for the listing (LIST) of the mailbox, if there are no
messages the server not send the '.' of end response multiline.

Example:

I think than this is Incorrect (withou ".")

CLIENT  SERVER
======  ======
LIST
                +OK 0 0

I think than this is correct (with ".")

CLIENT  SERVER
======  ======
LIST
                +OK 0 0
                .        (point of final multi list)

My code is:

procedure TSAPOP.OnList(ASender: TIdCommand; AMessageNum: Integer);
var Instancia : TSAInstanciaPOP;
    Men : TMen;
    j : integer;
    Totbytes : Int64;
begin
  try
    Instancia:=TSAInstanciaPOP(ASender.Context.Data);
    Instancia.List(lbTodos);

    if AMessageNum<1 then begin
      TotBytes:=0;
      for j:=0 to Instancia.ListaMens.Count-1 do begin
        Men:=TMen(Instancia.ListaMens.Objects[j]);
        ASender.Response.Add(Format('%d %d',[j+1,Men.Bytes]));
        TotBytes:=TotBytes+Men.Bytes;
      end;
      ASender.Reply.SetReply(OK, Format('%d
%d',[Instancia.ListaMens.Count,TotBytes]));

    end else begin
      if AMessageNum<=Instancia.ListaMens.Count then
ASender.Reply.SetReply(OK, Format('%d
%d',[AMessageNum,TMen(Instancia.ListaMens.Objects[AmessageNum-1]).Bytes]))
        else ASender.Reply.SetReply(ERR,rMsgNotExists);
    end;

  except
  ...
  end;
end;

Please, How to send the end point?

Thanks
Pedro.

Replies