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

2003-01-20 15:08:44 +00:00
parent 4ef92c949a
commit d27381ba4c
1 changed files with 2 additions and 2 deletions
@@ -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)