From: Katsumi Yamaoka Date: Mon, 29 Mar 2010 09:28:20 +0000 (+0000) Subject: 2010-03-29 Teodor Zlatanov X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~642 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afae6cd428f9466fcab5ceaea5f0474d69f16c81;p=emacs.git 2010-03-29 Teodor Zlatanov * auth-source.el (auth-source-pick): Fix for non-secrets specifier. --- 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 + + * auth-source.el (auth-source-pick): Fix for non-secrets specifier. + 2010-03-27 Teodor Zlatanov * 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