* auth-source.el (auth-source-pick): If choice does not contain a

questioned keyword, set the check to t.

2 files changed, 7 insertions, 1 deletions

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  <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.
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