martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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 ()