From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 18 Feb 2011 00:45:49 +0000 (-0800)
Subject: (auth-source-search): Don't try to create credentials if the caller doesn't want... 
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=8a16d10321644083c43621cfa178f673b0ca7142;hp=034742263e7ca5aed088d9b9dcfe4c456d6a26ea

(auth-source-search): Don't try to create credentials if the caller doesn't want that.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 147a75755..49764d15e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-18  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* auth-source.el (auth-source-search): Don't try to create credentials
+	if the caller doesn't want that.
+
 	* nnimap.el (nnimap-log-command): Add a newline to the inhibited
 	logging.
 	(nnimap-credentials): Protect against auth-source-search returning nil.
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 239ebeddf..6e6f962d6 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -552,7 +552,8 @@ must call it to obtain the actual value."
 	      (push (list backend match) matches)))))
       ;; If we didn't find anything, then we allow the backend(s) to
       ;; create the entries.
-      (unless matches
+      (when (and create
+		 (not matches))
 	(let ((match (apply
 		      (slot-value backend 'search-function)
 		      :backend backend