# HG changeset patch
# User Michael Albinus <albinus@detlef>
# Date 1276632814 -7200
# Node ID cf7a433d2eb646e200d477e425a3e953349842d4
# Parent  0c1f025545a1c7bd66a41ff77480c35c46509762
* auth-source.el (auth-source-pick): If choice does not contain a
questioned keyword, set the check to t.

diff -r 0c1f025545a1 -r cf7a433d2eb6 lisp/gnus/ChangeLog
--- 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.
diff -r 0c1f025545a1 -r cf7a433d2eb6 lisp/gnus/auth-source.el
--- 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