Mercurial > emacs
comparison lisp/gnus/pop3.el @ 24599:04a29f9f6a22
(pop3-read-passwd): Use read-passwd if that is defined.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 Apr 1999 19:08:11 +0000 |
| parents | 15fc6acbae7a |
| children | 08a36c7a0a52 |
comparison
equal
deleted
inserted
replaced
| 24598:078d53377010 | 24599:04a29f9f6a22 |
|---|---|
| 193 (nreverse list))) | 193 (nreverse list))) |
| 194 | 194 |
| 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) |
| 205 (setq end (set-marker (make-marker) end)) | 207 (setq end (set-marker (make-marker) end)) |
| 206 (save-excursion | 208 (save-excursion |