summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-22 14:35:09 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-22 14:35:09 +0200
commitd8157a113396ab1563c4909e26f5717097f47a9e (patch)
tree683a6057569e092e4eb145069f17f6e17394bc2f
parent942665d6d2d8b4dc8e7964a7684f075b8184d2c3 (diff)
downloademacs-d8157a113396ab1563c4909e26f5717097f47a9e.tar.gz
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.
-rw-r--r--lisp/auth-source.el4
1 files changed, 2 insertions, 2 deletions
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