flush sender port after sending text

svn: r2649 original commit: 36cb3b90920c06bc44ff4b08b44e2cac39c82950
2006-04-10 00:33:06 +00:00 · 2006-04-10 00:33:06 +00:00 · 0b8cbd5825
commit 0b8cbd5825
parent b8d5164d65
1 changed files with 5 additions and 3 deletions
--- 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