From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 22 Sep 2019 12:35:09 +0000 (+0200)
Subject: Fix "password" detection in authinfo mode
X-Git-Tag: emacs-27.0.90~1495
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8157a113396ab1563c4909e26f5717097f47a9e;p=emacs.git

Fix "password" detection in authinfo mode

* lisp/auth-source.el (authinfo--hide-passwords): Ensure that we
only hit actual "password" entries and not "foo-password" and the
like.
---

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 9669ae976cc..6d53a222e98 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -2416,9 +2416,9 @@ passwords are revealed when point moved into the password.
     (save-restriction
       (narrow-to-region start end)
       (goto-char start)
-      (while (re-search-forward "\\bpassword +\\([^\n\t ]+\\)"
+      (while (re-search-forward "\\(\\s-\\|^\\)password\\s-+\\([^\n\t ]+\\)"
                                 nil t)
-        (let ((overlay (make-overlay (match-beginning 1) (match-end 1))))
+        (let ((overlay (make-overlay (match-beginning 2) (match-end 2))))
           (overlay-put overlay 'display (propertize "****"
                                                     'face 'warning))
           (overlay-put overlay 'reveal-toggle-invisible