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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 28533e9ab2247d5b682f92769dd2271f2e9ee582..b40c6b7d60f6e18dc8f00d5fd6e81e7aadd88d20 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 0bfb55aedd1a8592a1c84daeab9fe6640523a2c1..4fdf521b1a9e2797e8497ca57205175d2961d99b 100644 (file)
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -542,7 +542,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