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

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

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ecbce02ad85..f2d6714dff4 100644
--- 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 8c59aee9714..a5e323c0395 100644
--- 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