(auth-source-pick): Fix for non-secrets specifier.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3a8944..2e04943 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-29  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * auth-source.el (auth-source-pick): Fix for non-secrets specifier.
+
 2010-03-27  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-sources): Change default to be simpler.  Explain

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 8c59aee..a5e323c 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -214,7 +214,7 @@ checked for fallback choices."
        (dolist (choice auth-sources)
          (let* ((s (plist-get choice :source))
                 ;; this is only set for Secret Service API specs (see secrets.el)
-                (coll (plist-get s :secrets))
+                (coll (and (consp s) (plist-get s :secrets)))
                 (score 0))
            (cond
             (coll                              ; use secrets.el here