Lines Matching defs:agent
7 ;; Symmetric encryption and gpg-agent support added by:
55 (defcustom pgg-gpg-use-agent t
56 "Whether to use gnupg agent for key caching."
64 (let* ((use-agent (and (null passphrase) (pgg-gpg-use-agent-p)))
68 ,@(if use-agent '("--use-agent")
217 (when (and sign (not (pgg-gpg-use-agent-p)))
249 (when (not (pgg-gpg-use-agent-p))
278 (when (not (pgg-gpg-use-agent-p))
314 (when (not (pgg-gpg-use-agent-p))
384 (defun pgg-gpg-update-agent ()
385 "Try to connet to gpg-agent and send UPDATESTARTUPTTY."
387 (let* ((agent-info (getenv "GPG_AGENT_INFO"))
388 (socket (and agent-info
389 (string-match "^\\([^:]*\\)" agent-info)
390 (match-string 1 agent-info)))
392 (make-network-process :name "gpg-agent-process"
399 ;; We can't check, so assume gpg-agent is up.
402 (defun pgg-gpg-use-agent-p ()
403 "Return t if `pgg-gpg-use-agent' is t and gpg-agent is available."
404 (and pgg-gpg-use-agent (pgg-gpg-update-agent)))