[Emacs-diffs] /srv/bzr/emacs/trunk r103324: auth-source.el (auth-source-search): Don't try to create credentials if the caller doesn't want that.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103324
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-18 01:48:21 +0000
message:
  auth-source.el (auth-source-search): Don't try to create credentials if the 
caller doesn't want that.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-18 00:41:50 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-18 01:48:21 +0000
@@ -1,5 +1,8 @@
 2011-02-18  Lars Ingebrigtsen  <address@hidden>
 
+       * auth-source.el (auth-source-search): Don't try to create credentials
+       if the caller doesn't want that.
+
        * nnimap.el (nnimap-log-command): Add a newline to the inhibited
        logging.
        (nnimap-credentials): Protect against auth-source-search returning nil.

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2011-02-17 23:48:59 +0000
+++ b/lisp/gnus/auth-source.el  2011-02-18 01:48:21 +0000
@@ -542,7 +542,8 @@
              (push (list backend match) matches)))))
       ;; If we didn't find anything, then we allow the backend(s) to
       ;; create the entries.
-      (unless matches
+      (when (and create
+                (not matches))
        (let ((match (apply
                      (slot-value backend 'search-function)
                      :backend backend