Mercurial > emacs
changeset 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 | 078d53377010 |
| children | 5e026e6efc73 |
| files | lisp/gnus/pop3.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
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)