diff options
| -rw-r--r-- | lisp/auth-source.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 5969cdbf9f8..4dcf7d73717 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -874,9 +874,9 @@ while \(:host t) would find all host entries." (defun auth-info-password (auth-info) "Return the :secret password from the AUTH-INFO." (let ((secret (plist-get auth-info :secret))) - (if (functionp secret) - (funcall secret) - secret))) + (while (functionp secret) + (setq secret (funcall secret))) + secret)) (defun auth-source-pick-first-password (&rest spec) "Pick the first secret found by applying `auth-source-search' to SPEC." |