From: keiichi <keiichi>
Date: Thu, 23 Dec 1999 10:24:42 +0000 (+0000)
Subject: (pop3-read-passwd): Check bounded function, before load file.
X-Git-Tag: nana-gnus-7_1_0_16~82
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c3ba01cb188e89d669dfca69916a8a5fcd5e2a2;p=elisp%2Fgnus.git-

(pop3-read-passwd): Check bounded function, before load file.
---

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