mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1999-04-08 19:08:22 +00:00
parent ff88af3794
commit 418cb80df2
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/nnmail.el
View file

@ -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 ()