MJ Ray's requested change

original commit: 4de2981edf6625c7ec45df04bf3749b30b40f6e4
2002-07-26 13:02:07 +00:00 · 2002-07-26 13:02:07 +00:00 · 9e1874f158
commit 9e1874f158
parent 87e852a921
1 changed files with 1 additions and 0 deletions
--- a/collects/net/nntp-unit.ss
+++ b/collects/net/nntp-unit.ss
@ -64,6 +64,7 @@
 	      (let-values (((code response)
 			    (get-single-line-response communicator)))
 		(case code
+                  [(201) communicator]
 		  ((200)
 		   communicator)
 		  (else