From: yamaoka <yamaoka>
Date: Fri, 19 Nov 1999 13:17:42 +0000 (+0000)
Subject: (pop3-apop): Move the autoload seting to the top level.
X-Git-Tag: t-gnus-6_13_3-01~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=70dcea24ffdc777c3ca0ad8460cb07b1027cfa20;p=elisp%2Fgnus.git-

(pop3-apop): Move the autoload seting to the top level.
---

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)))