(comint-password-prompt-regexp): Fix last change to be more specific.

diff --git a/lisp/comint.el b/lisp/comint.el
index e56cb2592838a71ae8873db9e61846c335c528cc..bc4eec04892bc7d0ac005dae28cffea7160c0281 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -280,7 +280,8 @@ This variable is buffer-local."
 ;; AIX puts the name of the person being su'd to in front of the prompt.
 ;; kinit prints a prompt like `Password for devnull@GNU.ORG: '.
 (defcustom comint-password-prompt-regexp
-  "\\(\\([Oo]ld \\|[Nn]ew \\|'s \\|login \\|^\\)[Pp]assword\\|pass phrase\\).*:\\s *\\'"
+  "\\(\\([Oo]ld \\|[Nn]ew \\|'s \\|login \\|^\\)[Pp]assword\\|pass phrase\\)\
+\\( for [^@ \t\n]+@[^@ \t\n]+\\)?:\\s *\\'"
   "*Regexp matching prompts for passwords in the inferior process.
 This is used by `comint-watch-for-password-prompt'."
   :type 'regexp