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'."
(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 ()
......
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