[Emacs-diffs] /srv/bzr/emacs/trunk r100603: * auth-source.el (auth-source-pick): If choice does not contain a

[Michael Albinus]

------------------------------------------------------------
revno: 100603
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Tue 2010-06-15 22:13:34 +0200
message:
  * auth-source.el (auth-source-pick): If choice does not contain a
  questioned keyword, set the check to t.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-06-12 17:26:40 +0000
+++ b/lisp/gnus/ChangeLog       2010-06-15 20:13:34 +0000
@@ -1,3 +1,8 @@
+2010-06-15  Michael Albinus  <address@hidden>
+
+       * auth-source.el (auth-source-pick): If choice does not contain a
+       questioned keyword, set the check to t.
+
 2010-06-12  Romain Francoise  <address@hidden>
 
        * gnus-util.el (gnus-date-get-time): Move up before first use.

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2010-06-08 13:05:11 +0000
+++ b/lisp/gnus/auth-source.el  2010-06-15 20:13:34 +0000
@@ -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