diff options
| author | Eli Zaretskii | 2024-06-15 13:06:09 -0400 |
|---|---|---|
| committer | Eli Zaretskii | 2024-06-15 13:06:09 -0400 |
| commit | 1bc093e33cb60eb85efe6a61d42d7ea58b40fa57 (patch) | |
| tree | 93d855511be95dfc1099e94f9e1405630708a18f /lisp/auth-source.el | |
| parent | 9b2e1b5e16c233cf5ea039e17175580793a4e5ef (diff) | |
| parent | 59261e6f4fef0ec03c8127b29fe107ed19280a3b (diff) | |
| download | emacs-1bc093e33cb60eb85efe6a61d42d7ea58b40fa57.tar.gz emacs-1bc093e33cb60eb85efe6a61d42d7ea58b40fa57.zip | |
Merge from origin/emacs-29
59261e6f4fe Fix auth-info-password
778f8c793d1 ; * lisp/mail/rmail.el (rmail-get-new-mail-hook): Doc fix.
e6044b29e65 ; Minor fixes in ELisp manual
Diffstat (limited to 'lisp/auth-source.el')
| -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 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." | |||
| 869 | (defun auth-info-password (auth-info) | 869 | (defun auth-info-password (auth-info) |
| 870 | "Return the :secret password from the AUTH-INFO." | 870 | "Return the :secret password from the AUTH-INFO." |
| 871 | (let ((secret (plist-get auth-info :secret))) | 871 | (let ((secret (plist-get auth-info :secret))) |
| 872 | (if (functionp secret) | 872 | (while (functionp secret) |
| 873 | (funcall secret) | 873 | (setq secret (funcall secret))) |
| 874 | secret))) | 874 | secret)) |
| 875 | 875 | ||
| 876 | (defun auth-source-pick-first-password (&rest spec) | 876 | (defun auth-source-pick-first-password (&rest spec) |
| 877 | "Pick the first secret found by applying `auth-source-search' to SPEC." | 877 | "Pick the first secret found by applying `auth-source-search' to SPEC." |