From b8d8ef0ff6bcfd3a63627e5b3f97a632cda4fc0e Mon Sep 17 00:00:00 2001 From: sperber Date: Mon, 20 Jan 2003 14:54:33 +0000 Subject: [PATCH] Remove old definition of MD5-DIGEST. --- scheme/lib/pop3.scm | 7 ------- 1 file changed, 7 deletions(-) diff --git a/scheme/lib/pop3.scm b/scheme/lib/pop3.scm index 41c2ad1..0b9bf17 100644 --- a/scheme/lib/pop3.scm +++ b/scheme/lib/pop3.scm @@ -259,13 +259,6 @@ (pop3-log connection (format #f "<- ~a" command)) (pop3-handle-response (pop3-read-response connection) command))) - -;; who will write this in Scheme? -(define (md5-digest str) - (car (run/strings (md5sum) (<< ,str)))) -; the name of the program differs among the distributions -; e.g. in FreeBSD it is called md5 - (define (pop3-dump fd) (let loop ((line (read-crlf-line fd))) (cond ((and (not (eof-object? line))