# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 923598491 0
# Node ID 04a29f9f6a224fccae688c80efad85212e6f20f8
# Parent  078d53377010aabef421ca92bf47c73191ad95f0
(pop3-read-passwd): Use read-passwd if that is defined.

diff -r 078d53377010 -r 04a29f9f6a22 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Thu Apr 08 16:50:04 1999 +0000
+++ b/lisp/gnus/pop3.el	Thu Apr 08 19:08:11 1999 +0000
@@ -195,10 +195,12 @@
 (defvar pop3-read-passwd nil)
 (defun pop3-read-passwd (prompt)
   (if (not pop3-read-passwd)
-      (if (load "passwd" t)
+      (if (fboundp 'read-passwd)
 	  (setq pop3-read-passwd 'read-passwd)
-	(autoload 'ange-ftp-read-passwd "ange-ftp")
-	(setq pop3-read-passwd 'ange-ftp-read-passwd)))
+	(if (load "passwd" t)
+	    (setq pop3-read-passwd 'read-passwd)
+	  (autoload 'ange-ftp-read-passwd "ange-ftp")
+	  (setq pop3-read-passwd 'ange-ftp-read-passwd))))
   (funcall pop3-read-passwd prompt))
 
 (defun pop3-clean-region (start end)