From a6bdcb9cd8644ae17c2d3c8ff10f7ff454375b6f Mon Sep 17 00:00:00 2001 From: Shriram Krishnamurthi Date: Mon, 10 Jun 2002 21:19:11 +0000 Subject: [PATCH] Updated example in doc.txt. Removed spaces in server responses on advice from "Jeff Greif" to handle servers that return only +OK and -ERR followed by newline. original commit: 7de63dfdfddd42bca64f2845cb51d9b5476983c8 --- collects/net/pop3-unit.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/net/pop3-unit.ss b/collects/net/pop3-unit.ss index 50087fb..ba0d611 100644 --- a/collects/net/pop3-unit.ss +++ b/collects/net/pop3-unit.ss @@ -304,17 +304,17 @@ ;; parsing, if necessary. (define get-server-status-response - (let ((+ok-regexp (regexp "^\\+OK (.*)")) - (-err-regexp (regexp "^\\-ERR (.*)"))) + (let ((+ok-regexp (regexp "^\\+OK(.*)")) + (-err-regexp (regexp "^\\-ERR(.*)"))) (lambda (communicator) (let ((receiver (communicator-receiver communicator))) (let ((status-line (get-one-line-from-server receiver))) (let ((r (regexp-match +ok-regexp status-line))) (if r - (values make-+ok (cadr r)) + (values (make-+ok) (cadr r)) (let ((r (regexp-match -err-regexp status-line))) (if r - (values make--err (cadr r)) + (values (make--err) (cadr r)) (signal-malformed-response-error communicator)))))))))) ;; get-status-response/basic :