Commit ff88af37 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 0748d150
......@@ -195,10 +195,12 @@ Return the response string if optional second argument is non-nil."
(defvar pop3-read-passwd nil)
(defun pop3-read-passwd (prompt)
(if (not pop3-read-passwd)
(if (load "passwd" t)
(if (fboundp 'read-passwd)
(setq pop3-read-passwd 'read-passwd)
(autoload 'ange-ftp-read-passwd "ange-ftp")
(setq pop3-read-passwd 'ange-ftp-read-passwd)))
(if (load "passwd" t)
(setq pop3-read-passwd 'read-passwd)
(autoload 'ange-ftp-read-passwd "ange-ftp")
(setq pop3-read-passwd 'ange-ftp-read-passwd))))
(funcall pop3-read-passwd prompt))
(defun pop3-clean-region (start end)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment