mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

Merge from origin/emacs-29

Browse source 
59261e6f4f Fix auth-info-password
778f8c793d ; * lisp/mail/rmail.el (rmail-get-new-mail-hook): Doc fix.
e6044b29e6 ; Minor fixes in ELisp manual
This commit is contained in:
Eli Zaretskii 2024-06-15 13:06:09 -04:00
commit 1bc093e33c
4 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/auth-source.el
View file

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