From 8b9a64c2f8bf1ebfa1f0fbf9c0dd28f064089ab7 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 6 Sep 1999 21:24:50 +0000 Subject: [PATCH] (rmail-read-password): Deleted. (rmail-get-pop-password): Use read-password. --- lisp/mail/rmail.el | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4736e49cd66..04391b74cab 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1453,29 +1453,6 @@ It returns t if it got any new messages." (setq files (cdr files))) delete-files)) -(defun rmail-read-passwd (prompt &optional default) - "Read a password, echoing `.' for each character typed. -End with RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. -Optional DEFAULT is password to start with." - (let ((pass (if default default "")) - (c 0) - (echo-keystrokes 0) - (cursor-in-echo-area t)) - (while (progn (message "%s%s" - prompt - (make-string (length pass) ?.)) - (setq c (read-char)) - (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) - (if (= c ?\C-u) - (setq pass "") - (if (and (/= c ?\b) (/= c ?\177)) - (setq pass (concat pass (char-to-string c))) - (if (> (length pass) 0) - (setq pass (substring pass 0 -1)))))) - (message "") - (message nil) - pass)) - ;; Decode the region specified by FROM and TO by CODING. ;; If CODING is nil or an invalid coding system, decode by `undecided'. (defun rmail-decode-region (from to coding) @@ -3369,7 +3346,7 @@ TEXT and INDENT are not used." has been set, then prompt the user for one." (if (not rmail-encoded-pop-password) (progn (if (not rmail-pop-password) - (setq rmail-pop-password (rmail-read-passwd "POP password: "))) + (setq rmail-pop-password (read-passwd "POP password: "))) (rmail-set-pop-password rmail-pop-password) (setq rmail-pop-password nil))) (rmail-encode-string rmail-encoded-pop-password (emacs-pid))) -- 2.39.5