Query for password, although there are no existing auth sources.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index a0be0ca..6f4a4ac 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -430,8 +430,9 @@ MODE can be \"login\" or \"password\"."
          (and found (return found)))
 
        ;; We haven't found something, so we will create it interactively.
-       (when (and (not found) choices create-missing)
-         (setq found (apply 'auth-source-create mode (car choices) search)))
+       (when (and (not found) create-missing)
+         (setq found (apply 'auth-source-create
+                            mode (car auth-sources) search)))
 
        ;; Cache the result.
        (when found