From 4ebb03e66b8e198df1d65d2fe8f599454aa65a3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Feb 2007 20:39:55 +0000 Subject: [PATCH] (pgg-gpg-process-region): Make USE-AGENT nil if PASSPHRASE is given. --- lisp/ChangeLog | 5 +++++ lisp/pgg-gpg.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1ce300df67..49fd9309381 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-02-17 Daiki Ueno + + * pgg-gpg.el (pgg-gpg-process-region): Make USE-AGENT nil + if PASSPHRASE is given. + 2007-02-17 Chris Moore * jka-cmpr-hook.el (jka-compr-compression-info-list): Recognize diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index 84bf81a858e..a2cd14eaae3 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -61,7 +61,7 @@ "GnuPG ID of your default identity.") (defun pgg-gpg-process-region (start end passphrase program args) - (let* ((use-agent (pgg-gpg-use-agent-p)) + (let* ((use-agent (and (null passphrase) (pgg-gpg-use-agent-p))) (output-file-name (pgg-make-temp-file "pgg-output")) (args `("--status-fd" "2" -- 2.39.2