diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-04-08 19:08:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-04-08 19:08:22 +0000 |
| commit | 418cb80df259e83cd7b365eb71fbb9700c439a97 (patch) | |
| tree | cbcde51005b289367776c4a7be5cc83544d42c14 /lisp/gnus/nnmail.el | |
| parent | ff88af3794f628e526b254192e7359e591355bae (diff) | |
| download | emacs-418cb80df259e83cd7b365eb71fbb9700c439a97.tar.gz emacs-418cb80df259e83cd7b365eb71fbb9700c439a97.tar.bz2 emacs-418cb80df259e83cd7b365eb71fbb9700c439a97.zip | |
(nnmail-read-passwd): Use read-passwd if that is defined.
Diffstat (limited to 'lisp/gnus/nnmail.el')
| -rw-r--r-- | lisp/gnus/nnmail.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 056600b8255..4774f2fc3a8 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1689,11 +1689,13 @@ If ARGS, PROMPT is used as an argument to `format'." (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 () |