Mercurial > emacs
diff lisp/gnus/pop3.el @ 24599:04a29f9f6a22
(pop3-read-passwd): Use read-passwd if that is defined.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 08 Apr 1999 19:08:11 +0000 |
parents | 15fc6acbae7a |
children | 08a36c7a0a52 |
line wrap: on
line diff
--- 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)