Mercurial > emacs
changeset 108993:cf7a433d2eb6
* auth-source.el (auth-source-pick): If choice does not contain a
questioned keyword, set the check to t.
| author | Michael Albinus <albinus@detlef> |
|---|---|
| date | Tue, 15 Jun 2010 22:13:34 +0200 |
| parents | 0c1f025545a1 |
| children | 812d563cc192 4eded71f4215 |
| files | lisp/gnus/ChangeLog lisp/gnus/auth-source.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Jun 15 13:05:06 2010 +0200 +++ b/lisp/gnus/ChangeLog Tue Jun 15 22:13:34 2010 +0200 @@ -1,3 +1,8 @@ +2010-06-15 Michael Albinus <michael.albinus@gmx.de> + + * auth-source.el (auth-source-pick): If choice does not contain a + questioned keyword, set the check to t. + 2010-06-12 Romain Francoise <romain@orebokech.com> * gnus-util.el (gnus-date-get-time): Move up before first use.
--- a/lisp/gnus/auth-source.el Tue Jun 15 13:05:06 2010 +0200 +++ b/lisp/gnus/auth-source.el Tue Jun 15 22:13:34 2010 +0200 @@ -229,7 +229,8 @@ ;; Check keywords. (dolist (k keys match) (let* ((v (plist-get spec k)) - (choicev (plist-get choice k))) + (choicev (if (plist-member choice k) + (plist-get choice k) t))) (setq match (and match (or