From: Michael Albinus <albinus@detlef>
Date: Tue, 15 Jun 2010 20:13:34 +0000 (+0200)
Subject: * auth-source.el (auth-source-pick): If choice does not contain a
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~52^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85350e06b0c0de0e774ce6e4e7713b309938f248;p=emacs.git

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