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

questioned keyword, set the check to t.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 78d3d2342852ddbbd93ae6531b04a60eee5bc857..e50bdb585750d344f06f62e1921ed12790a76336 100644 (file)
--- 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 89b2ef3d11dbad72a89380344347b63ad0bc42a9..e43f09e5ed1168f829f22714d0007068f62a15b7 100644 (file)
--- 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