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

diff -r 510ea81324e3 -r a62278954f43 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Mar 28 23:57:34 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Mar 29 09:29:19 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 510ea81324e3 -r a62278954f43 lisp/gnus/auth-source.el
--- a/lisp/gnus/auth-source.el	Sun Mar 28 23:57:34 2010 +0000
+++ b/lisp/gnus/auth-source.el	Mon Mar 29 09:29:19 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