procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(auth-source-search): Only ask a single backend to create the credentials.
This commit is contained in:
Lars Ingebrigtsen 2011-02-18 23:15:24 +00:00 • committed by Katsumi Yamaoka
parent abd20d91ab
commit 0d873e93b7
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -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.

18
lisp/gnus/auth-source.el
View file

@ -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))