]> git.eshelyaron.com Git - emacs.git/commitdiff
(pop3-read-passwd): Use read-passwd if that is defined.
authorRichard M. Stallman <rms@gnu.org>
Thu, 8 Apr 1999 19:08:11 +0000 (19:08 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 8 Apr 1999 19:08:11 +0000 (19:08 +0000)
lisp/gnus/pop3.el

index 0b2243a1bf8fc3ee218b6d173317b0790c381de0..2e05e67f5586e3efcd7735fbc9bd93eecea9ff98 100644 (file)
@@ -195,10 +195,12 @@ 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 (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)