--- elmo/elmo-pop3.el.orig	Mon Jun 28 17:14:48 1999
+++ elmo/elmo-pop3.el	Fri Sep 10 21:13:10 1999
@@ -171,14 +171,7 @@
 
 (defun elmo-pop3-make-apop-digest (key pass)
   (require 'md5)
-  (let* ((arr (md5-encode (concat key pass)))
-	 (len (length arr))
-	 (idx 0)
-	 (digest "" ))
-    (while (< idx len)
-      (setq digest (concat digest (format "%02x" (aref arr idx)))
-	    idx (1+ idx)))
-    digest))
+  (md5 (concat key pass)))
 
 (defun elmo-pop3-open-connection (server user port auth passphrase ssl)
   (let ((process nil)
