Re: [Chicken-users] smtp egg

[felix winkelmann]

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.


cheers
felix