From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Mon, 29 Mar 2010 10:20:06 +0000 (+0000)
Subject: (auth-source-pick): Fix for non-secrets specifier.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=6e9f6c4a0ff57c73d3b0a99038ae59d19be4aaa5;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3a89443c..2e04943e9 100644
--- 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 8c59aee97..a5e323c03 100644
--- 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