From 418cb80df259e83cd7b365eb71fbb9700c439a97 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 8 Apr 1999 19:08:22 +0000 Subject: [PATCH] (nnmail-read-passwd): Use read-passwd if that is defined. --- lisp/gnus/nnmail.el | 10 ++++++---- 1 file 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 () -- 2.39.2