From 1087695e3709b911f04f0d7d111f1dcf492d9cae Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 16 Jan 2003 16:40:51 +0000 Subject: [PATCH] Use our own md5 library to generate MD5 sum instead of calling an external program. --- scheme/lib/pop3.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scheme/lib/pop3.scm b/scheme/lib/pop3.scm index c20edcc..53a5762 100644 --- a/scheme/lib/pop3.scm +++ b/scheme/lib/pop3.scm @@ -210,7 +210,9 @@ (define (pop3-login/APOP connection login password) (let* ((key (string-append (pop3-connection-challenge connection) password)) - (digest (md5-digest key)) + (digest (number->string + (md5-digest->number (md5-digest-for-string key)) + 16)) (status (pop3-send-command connection (format #f "APOP ~a ~a" login digest)))) (set-pop3-connection-login! connection login)