# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1269854900 0
# Node ID 3350692f1a890c16bba96e65c84956286a2263a3
# Parent  4d8dad8e3edaf2465ca7e3775b795362e5faaf5f
2010-03-29  Teodor Zlatanov  <tzz@lifelogs.com>
 * auth-source.el (auth-source-pick): Fix for non-secrets specifier.

diff -r 4d8dad8e3eda -r 3350692f1a89 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Mar 29 00:00:50 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Mar 29 09:28:20 2010 +0000
@@ -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 -r 4d8dad8e3eda -r 3350692f1a89 lisp/gnus/auth-source.el
--- a/lisp/gnus/auth-source.el	Mon Mar 29 00:00:50 2010 +0000
+++ b/lisp/gnus/auth-source.el	Mon Mar 29 09:28:20 2010 +0000
@@ -214,7 +214,7 @@
 	(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