Commit 0d873e93 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

auth-source.el (auth-source-search): If we don't find a match, don't bug out...

auth-source.el (auth-source-search): If we don't find a match, don't bug out on non-bound variables.
 (auth-source-search): Only ask a single backend to create the credentials.
parent abd20d91
......@@ -2,6 +2,10 @@
 
* auth-source.el (auth-source-search): Don't try to create credentials
if the caller doesn't want that.
(auth-source-search): If we don't find a match, don't bug out on
non-bound variables.
(auth-source-search): Only ask a single backend to create the
credentials.
 
* nnimap.el (nnimap-log-command): Add a newline to the inhibited
logging.
......
......@@ -544,14 +544,16 @@ must call it to obtain the actual value."
;; create the entries.
(when (and create
(not matches))
(let ((match (apply
(slot-value backend 'search-function)
:backend backend
:create create
:delete delete
spec)))
(when match
(push (list backend match) matches))))
(dolist (backend filtered-backends)
(unless matches
(let ((match (apply
(slot-value backend 'search-function)
:backend backend
:create create
:delete delete
spec)))
(when match
(push (list backend match) matches))))))
(setq backend (caar matches)
found-here (cadar matches))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment