From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 26 Sep 2010 12:27:55 +0000 (+0200)
Subject: Use the existing auth sources, if any, for creation.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=e811c0c01b050af2338df5b28a5c600552dade57;p=gnus

Use the existing auth sources, if any, for creation.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6210d65b3..bce97083b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* auth-source.el (auth-source-user-or-password): Use the existing auth
+	sources, if any, for creation.
+
 	* gnus.el (gnus-group-fast-parameter): Return the last matching
 	parameter instead of the first matching parameter.
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 6f4a4ac3e..c0464e2c5 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -432,7 +432,10 @@ MODE can be \"login\" or \"password\"."
 	;; We haven't found something, so we will create it interactively.
 	(when (and (not found) create-missing)
 	  (setq found (apply 'auth-source-create
-			     mode (car auth-sources) search)))
+			     mode (if choices
+				      (car choices)
+				    (car auth-sources))
+			     search)))
 
 	;; Cache the result.
 	(when found