2010-03-29 Teodor Zlatanov <tzz@lifelogs.com>

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ecbce02ad859a5728d53e1a75f0a578aa8fa8f42..f2d6714dff4733ad88aeecd21e03878ba2b3f35c 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/auth-source.el b/lisp/gnus/auth-source.el
index 8c59aee97145672dd94cd1da7d26e2786d9dc3ff..a5e323c03952f114fc40e41cdd7e57a572ca56ab 100644 (file)
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/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