Re: [Chicken-users] smtp egg

[Daishi Kato]

At Mon, 4 Feb 2008 14:45:56 +0100,
felix winkelmann wrote:
> 
> On Feb 4, 2008 12:42 PM, Daishi Kato <address@hidden> wrote:
> >
> > I've been having another issue,
> > which I finally found out what's going.
> >
> > When I use smtp with (tcp-buffer-size 1000),
> > smtp:connect doesn't work.
> >
> > The solution would be to add flush-output.
> >
> > (define (send smtp fstr . args)
> >   (when (smtp-verbose smtp) (fprintf (current-error-port) "SMTP: ~?~%" fstr 
> > args))
> >   (fprintf (smtp-out smtp) "~?\r\n" fstr args)
> >   (flush-output (smtp-out smtp) )
> >
> 
> Fixed. Thanks again.

Thanks.
But we also need to add flush-output
when closing the DATA port.
I found it now...

Daishi