From 36cb3b90920c06bc44ff4b08b44e2cac39c82950 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 10 Apr 2006 00:33:06 +0000 Subject: [PATCH] flush sender port after sending text svn: r2649 --- collects/net/nntp-unit.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/net/nntp-unit.ss b/collects/net/nntp-unit.ss index fd6be0bbf6..f5aa600416 100644 --- a/collects/net/nntp-unit.ss +++ b/collects/net/nntp-unit.ss @@ -147,9 +147,11 @@ (define send-to-server (lambda (communicator message-template . rest) - (apply fprintf (communicator-sender communicator) - (string-append message-template "\r\n") - rest))) + (let ([sender (communicator-sender communicator)]) + (apply fprintf sender + (string-append message-template "\r\n") + rest) + (flush-output sender)))) ;; parse-status-line : ;; string -> number x string