From 5c3ba01cb188e89d669dfca69916a8a5fcd5e2a2 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 23 Dec 1999 10:24:42 +0000 Subject: [PATCH] (pop3-read-passwd): Check bounded function, before load file. --- lisp/pop3.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/pop3.el b/lisp/pop3.el index c19a77f..fb9cb2f 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -191,7 +191,7 @@ Return the response string if optional second argument is non-nil." (defvar pop3-read-passwd nil) (defun pop3-read-passwd (prompt) (if (not pop3-read-passwd) - (if (load "passwd" t) + (if (or (fboundp 'read-passwd) (load "passwd" t)) (setq pop3-read-passwd 'read-passwd) (autoload 'ange-ftp-read-passwd "ange-ftp") (setq pop3-read-passwd 'ange-ftp-read-passwd))) -- 1.7.10.4