scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Actually signal 'POP3-ERROR instead of '-ERR.

This commit is contained in:
sperber 2003-01-20 15:08:44 +00:00
parent 4ef92c949a
commit d27381ba4c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/lib/pop3.scm
View File

@ -242,8 +242,8 @@
(match:substring match 1) (match:substring match 1)
(let ((match2 (regexp-search (rx (posix-string "^-ERR(.*)")) response))) (let ((match2 (regexp-search (rx (posix-string "^-ERR(.*)")) response)))
(if match2 (if match2
(signal '-ERR (match:substring match2 1) command) (signal 'pop3-error (match:substring match2 1) command)
(signal '-ERR response command)))))) (signal 'pop3-error response command))))))
(define (pop3-log connection line) (define (pop3-log connection line)