Re: [Chicken-users] smtp egg

[Daishi Kato]

At Wed, 6 Feb 2008 09:06:12 +0100,
felix winkelmann wrote:
> 
> On Feb 5, 2008 9:42 AM, Daishi Kato <address@hidden> wrote:
> >
> > Thanks.
> > But we also need to add flush-output
> > when closing the DATA port.
> > I found it now...
> 
> Sorry, I'm not quite clear about this: wouldn't closing the
> tcp port flush any remaining output automatically?

It's not the tcp port but the port returned by smtp:open.
It must be flushed because "fetch" waits for a response.

Like the following:
     (lambda ()
       (unless bol
         (display "\r\n"))
       (display ".\r\n" (smtp-out smtp))
       (flush-output (smtp-out smtp)) ;; <------------ here
       (fetch smtp)
       (smtp-open-set! smtp #f) ) ) ) )

Daishi