From 70dcea24ffdc777c3ca0ad8460cb07b1027cfa20 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Nov 1999 13:17:42 +0000 Subject: [PATCH] (pop3-apop): Move the autoload seting to the top level. --- lisp/pop3.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/pop3.el b/lisp/pop3.el index 9a6c680..84fef45 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -405,9 +405,10 @@ Return the response string if optional second argument is non-nil." (if (not (and response (string-match "+OK" response))) (pop3-quit process)))) +(autoload 'md5 "md5") + (defun pop3-apop (process user) "Send alternate authentication information to the server." - (if (not (fboundp 'md5)) (autoload 'md5 "md5")) (let ((hash (md5 (concat pop3-timestamp pop3-password)))) (pop3-send-command process (format "APOP %s %s" user hash)) (let ((response (pop3-read-response process t))) -- 1.7.10.4