From 05905038fb21a389fbdf0841921a22d77d336d93 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Tue, 20 Sep 2011 13:57:43 +0200 Subject: [PATCH] auth-source: add auth-source-format-cache-entry Signed-off-by: Julien Danjou --- lisp/ChangeLog | 4 ++++ lisp/auth-source.el | 13 ++++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e68a04f3..f6cf6985b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-09-20 Julien Danjou + + * auth-source.el (auth-source-format-cache-entry): New function. + 2011-09-20 Katsumi Yamaoka * gnus-fun.el (gnus-convert-image-to-x-face-command): Doc fix. diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 39bf32f07..2d6f472d7 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -759,28 +759,31 @@ Returns the deleted entries." do (password-cache-remove (symbol-name sym))) (setq auth-source-netrc-cache nil)) +(defun auth-source-format-cache-entry (spec) + "Format SPEC entry to put it in the password cache." + (concat auth-source-magic (format "%S" spec))) + (defun auth-source-remember (spec found) "Remember FOUND search results for SPEC." (let ((password-cache-expiry auth-source-cache-expiry)) (password-cache-add - (concat auth-source-magic (format "%S" spec)) found))) + (auth-source-format-cache-entry spec) found))) (defun auth-source-recall (spec) "Recall FOUND search results for SPEC." - (password-read-from-cache - (concat auth-source-magic (format "%S" spec)))) + (password-read-from-cache (auth-source-format-cache-entry spec))) (defun auth-source-remembered-p (spec) "Check if SPEC is remembered." (password-in-cache-p - (concat auth-source-magic (format "%S" spec)))) + (auth-source-format-cache-entry spec))) (defun auth-source-forget (spec) "Forget any cached data matching SPEC exactly. This is the same SPEC you passed to `auth-source-search'. Returns t or nil for forgotten or not found." - (password-cache-remove (concat auth-source-magic (format "%S" spec)))) + (password-cache-remove (auth-source-format-cache-entry spec))) ;;; (loop for sym being the symbols of password-data when (string-match (concat "^" auth-source-magic) (symbol-name sym)) collect (symbol-name sym)) -- 2.25.1