master 8162248: Fix problem when creating an .authinfo entry with an existing machine name

[Lars Ingebrigtsen]

branch: master
commit 81622484bc711f98bf7b4b5f84052590a0ae5d3f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix problem when creating an .authinfo entry with an existing machine name
    
    * lisp/auth-source.el (auth-source-netrc-create): Don't return the
    incorrect data if there's a matching host entry but the wrong user
    name (bug#49289).
---
 lisp/auth-source.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 9ca28eb..6919738 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1270,7 +1270,7 @@ See `auth-source-search' for details on SPEC."
 ;; (auth-source-search :host "nonesuch" :type 'netrc :max 1 :create t 
:create-extra-keys '((A "default A") (B)))
 
 (cl-defun auth-source-netrc-create (&rest spec
-                                    &key backend host port create
+                                    &key backend host port create user
                                     &allow-other-keys)
   (let* ((base-required '(host user port secret))
          ;; we know (because of an assertion in auth-source-search) that the
@@ -1278,6 +1278,7 @@ See `auth-source-search' for details on SPEC."
          (create-extra (if (eq t create) nil create))
          (current-data (car (auth-source-search :max 1
                                                 :host host
+                                                :user user
                                                 :port port)))
          (required (append base-required create-extra))
          (file (oref backend source))