* auth-source.el (auth-source-search): Fix unbound variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 950f067..cfc9fb5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-21  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * auth-source.el (auth-source-search): Fix unbound variable.
+

 2011-02-19  Glenn Morris  <rgm@gnu.org>
 
        * gnus.el (gnus-meta): Doc fix.
 2011-02-19  Glenn Morris  <rgm@gnu.org>
 
        * gnus.el (gnus-meta): Doc fix.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index eede353..eaed8e8 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -510,7 +510,7 @@ must call it to obtain the actual value."
                      unless (memq (nth i spec) ignored-keys)
                      collect (nth i spec)))
          (found (auth-source-recall spec))
                      unless (memq (nth i spec) ignored-keys)
                      collect (nth i spec)))
          (found (auth-source-recall spec))

-         filtered-backends accessor-key found-here goal matches)
+         filtered-backends accessor-key found-here goal matches backend)

 
     (if (and found auth-source-do-cache)
         (auth-source-do-debug
 
     (if (and found auth-source-do-cache)
         (auth-source-do-debug