From 85350e06b0c0de0e774ce6e4e7713b309938f248 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 15 Jun 2010 22:13:34 +0200 Subject: [PATCH] * auth-source.el (auth-source-pick): If choice does not contain a questioned keyword, set the check to t. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/auth-source.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 78d3d234285..e50bdb58575 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-06-15 Michael Albinus + + * auth-source.el (auth-source-pick): If choice does not contain a + questioned keyword, set the check to t. + 2010-06-12 Romain Francoise * gnus-util.el (gnus-date-get-time): Move up before first use. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 89b2ef3d11d..e43f09e5ed1 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -229,7 +229,8 @@ matched as a regex." ;; 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 -- 2.39.2