Actually signal 'POP3-ERROR instead of '-ERR.
This commit is contained in:
parent
4ef92c949a
commit
d27381ba4c
|
@ -242,8 +242,8 @@
|
|||
(match:substring match 1)
|
||||
(let ((match2 (regexp-search (rx (posix-string "^-ERR(.*)")) response)))
|
||||
(if match2
|
||||
(signal '-ERR (match:substring match2 1) command)
|
||||
(signal '-ERR response command))))))
|
||||
(signal 'pop3-error (match:substring match2 1) command)
|
||||
(signal 'pop3-error response command))))))
|
||||
|
||||
|
||||
(define (pop3-log connection line)
|
||||
|
|
Loading…
Reference in New Issue