diff options
| author | Richard M. Stallman | 1999-04-08 19:08:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-04-08 19:08:11 +0000 |
| commit | ff88af3794f628e526b254192e7359e591355bae (patch) | |
| tree | 488271915ab881fa8704906641fc948912d2c07f | |
| parent | 0748d150ecff495c4abda3d24e5b814eeb77ee70 (diff) | |
| download | emacs-ff88af3794f628e526b254192e7359e591355bae.tar.gz emacs-ff88af3794f628e526b254192e7359e591355bae.zip | |
(pop3-read-passwd): Use read-passwd if that is defined.
| -rw-r--r-- | lisp/gnus/pop3.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index 0b2243a1bf8..2e05e67f558 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el | |||
| @@ -195,10 +195,12 @@ Return the response string if optional second argument is non-nil." | |||
| 195 | (defvar pop3-read-passwd nil) | 195 | (defvar pop3-read-passwd nil) |
| 196 | (defun pop3-read-passwd (prompt) | 196 | (defun pop3-read-passwd (prompt) |
| 197 | (if (not pop3-read-passwd) | 197 | (if (not pop3-read-passwd) |
| 198 | (if (load "passwd" t) | 198 | (if (fboundp 'read-passwd) |
| 199 | (setq pop3-read-passwd 'read-passwd) | 199 | (setq pop3-read-passwd 'read-passwd) |
| 200 | (autoload 'ange-ftp-read-passwd "ange-ftp") | 200 | (if (load "passwd" t) |
| 201 | (setq pop3-read-passwd 'ange-ftp-read-passwd))) | 201 | (setq pop3-read-passwd 'read-passwd) |
| 202 | (autoload 'ange-ftp-read-passwd "ange-ftp") | ||
| 203 | (setq pop3-read-passwd 'ange-ftp-read-passwd)))) | ||
| 202 | (funcall pop3-read-passwd prompt)) | 204 | (funcall pop3-read-passwd prompt)) |
| 203 | 205 | ||
| 204 | (defun pop3-clean-region (start end) | 206 | (defun pop3-clean-region (start end) |