Mercurial > emacs
changeset 107568:3350692f1a89
2010-03-29 Teodor Zlatanov <tzz@lifelogs.com>
* auth-source.el (auth-source-pick): Fix for non-secrets specifier.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 29 Mar 2010 09:28:20 +0000 |
| parents | 4d8dad8e3eda |
| children | a62278954f43 3ce6e8cd52f1 |
| files | lisp/gnus/ChangeLog lisp/gnus/auth-source.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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