# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1171744700 0
# Node ID 49a4f4e5856182c53106b019465671b8de76016c
# Parent  89707a1526bd88eaa8dd5ef642146727e8d05cff
(pgg-gpg-process-region): Make USE-AGENT nil if PASSPHRASE is given.

diff -r 89707a1526bd -r 49a4f4e58561 lisp/pgg-gpg.el
--- a/lisp/pgg-gpg.el	Sat Feb 17 17:39:33 2007 +0000
+++ b/lisp/pgg-gpg.el	Sat Feb 17 20:38:20 2007 +0000
@@ -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"