Function: epa-file-passphrase-callback-function

epa-file-passphrase-callback-function is a byte-compiled function defined in epa-file.el.gz.

Signature

(epa-file-passphrase-callback-function CONTEXT KEY-ID FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/epa-file.el.gz
(defun epa-file-passphrase-callback-function (context key-id file)
  (if (and epa-file-cache-passphrase-for-symmetric-encryption
	   (eq key-id 'SYM))
      (progn
	(setq file (file-truename file))
	(let ((entry (assoc file epa-file-passphrase-alist))
	      passphrase)
	  (or (copy-sequence (cdr entry))
	      (progn
		(unless entry
		  (setq entry (list file))
		  (setq epa-file-passphrase-alist
			(cons entry
			      epa-file-passphrase-alist)))
		(setq passphrase (epa-passphrase-callback-function context
								   key-id
								   file))
		(setcdr entry (copy-sequence passphrase))
		passphrase))))
    (epa-passphrase-callback-function context key-id file)))