suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated example in doc.txt.

Browse Source 
Removed spaces in server responses on advice from
"Jeff Greif" <jgreif@alumni.princeton.edu>
to handle servers that return only +OK and -ERR followed by newline.

original commit: 7de63dfdfddd42bca64f2845cb51d9b5476983c8
This commit is contained in:
Shriram Krishnamurthi 2002-06-10 21:19:11 +00:00
parent e519a29adc
commit a6bdcb9cd8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/net/pop3-unit.ss
View File

@ -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 :