From d27381ba4ce5585cbffcb980ed1f7b3e24c5e218 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 20 Jan 2003 15:08:44 +0000
Subject: [PATCH] Actually signal 'POP3-ERROR instead of '-ERR.

---
 scheme/lib/pop3.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/lib/pop3.scm b/scheme/lib/pop3.scm
index 7b310f8..32824fc 100644
--- a/scheme/lib/pop3.scm
+++ b/scheme/lib/pop3.scm
@@ -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)