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

diff -r 04a29f9f6a22 -r 5e026e6efc73 lisp/gnus/nnmail.el
--- a/lisp/gnus/nnmail.el	Thu Apr 08 19:08:11 1999 +0000
+++ b/lisp/gnus/nnmail.el	Thu Apr 08 19:08:22 1999 +0000
@@ -1689,11 +1689,13 @@
 	     (apply 'format prompt args)
 	   prompt)))
     (unless nnmail-read-passwd
-      (if (load "passwd" t)
+      (if (fboundp 'read-passwd)
 	  (setq nnmail-read-passwd 'read-passwd)
-	(unless (fboundp 'ange-ftp-read-passwd)
-	  (autoload 'ange-ftp-read-passwd "ange-ftp"))
-	(setq nnmail-read-passwd 'ange-ftp-read-passwd)))
+	(if (load "passwd" t)
+	    (setq nnmail-read-passwd 'read-passwd)
+	  (unless (fboundp 'ange-ftp-read-passwd)
+	    (autoload 'ange-ftp-read-passwd "ange-ftp"))
+	  (setq nnmail-read-passwd 'ange-ftp-read-passwd))))
     (funcall nnmail-read-passwd prompt)))
 
 (defun nnmail-check-syntax ()