Commit 418cb80d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(nnmail-read-passwd): Use read-passwd if that is defined.

parent ff88af37
...@@ -1689,11 +1689,13 @@ If ARGS, PROMPT is used as an argument to `format'." ...@@ -1689,11 +1689,13 @@ If ARGS, PROMPT is used as an argument to `format'."
(apply 'format prompt args) (apply 'format prompt args)
prompt))) prompt)))
(unless nnmail-read-passwd (unless nnmail-read-passwd
(if (load "passwd" t) (if (fboundp 'read-passwd)
(setq nnmail-read-passwd 'read-passwd) (setq nnmail-read-passwd 'read-passwd)
(unless (fboundp 'ange-ftp-read-passwd) (if (load "passwd" t)
(autoload 'ange-ftp-read-passwd "ange-ftp")) (setq nnmail-read-passwd 'read-passwd)
(setq nnmail-read-passwd 'ange-ftp-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))) (funcall nnmail-read-passwd prompt)))
(defun nnmail-check-syntax () (defun nnmail-check-syntax ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment