[Emacs-diffs] /srv/bzr/emacs/trunk r103343: auth-source.el (auth-source-search): If we don't find a match, don't bug out on non-bound variables.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103343
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-18 23:15:24 +0000
message:
  auth-source.el (auth-source-search): If we don't find a match, don't bug out 
on non-bound variables.
   (auth-source-search): Only ask a single backend to create the credentials.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-18 01:48:21 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-18 23:15:24 +0000
@@ -2,6 +2,10 @@
 
        * auth-source.el (auth-source-search): Don't try to create credentials
        if the caller doesn't want that.
+       (auth-source-search): If we don't find a match, don't bug out on
+       non-bound variables.
+       (auth-source-search): Only ask a single backend to create the
+       credentials.
 
        * nnimap.el (nnimap-log-command): Add a newline to the inhibited
        logging.

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2011-02-18 01:48:21 +0000
+++ b/lisp/gnus/auth-source.el  2011-02-18 23:15:24 +0000
@@ -544,14 +544,16 @@
       ;; create the entries.
       (when (and create
                 (not matches))
-       (let ((match (apply
-                     (slot-value backend 'search-function)
-                     :backend backend
-                     :create create
-                     :delete delete
-                     spec)))
-         (when match
-           (push (list backend match) matches))))
+       (dolist (backend filtered-backends)
+         (unless matches
+           (let ((match (apply
+                         (slot-value backend 'search-function)
+                         :backend backend
+                         :create create
+                         :delete delete
+                         spec)))
+             (when match
+               (push (list backend match) matches))))))
 
       (setq backend (caar matches)
            found-here (cadar matches))