At Wed, 6 Feb 2008 09:06:12 +0100,
felix winkelmann wrote:
>
> On Feb 5, 2008 9:42 AM, Daishi Kato <[EMAIL PROTECTED]> 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
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
