Fix auth-info-password

* lisp/auth-source.el (auth-info-password): :secret can be a
cascaded function.

(cherry picked from commit 59261e6f4fef0ec03c8127b29fe107ed19280a3b)

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 2de78c5ae559856ce3d945f7cb1530e16da5cc51..9ec9ede80e061e546341d6dfb21df8912c711399 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -869,9 +869,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."