From 066e7397e2a78a6058a97b8fa3d77dc325d52965 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 12 Jun 2024 10:24:34 +0200 Subject: [PATCH] Fix auth-info-password * lisp/auth-source.el (auth-info-password): :secret can be a cascaded function. (cherry picked from commit 59261e6f4fef0ec03c8127b29fe107ed19280a3b) --- lisp/auth-source.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 2de78c5ae55..9ec9ede80e0 100644 --- 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." -- 2.39.2