(pgg-gpg-process-region): Make USE-AGENT nil if PASSPHRASE is given.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1ce300df6719e882ef8c6956f958f4b6b92f1ab..49fd93093812bfec5a659c18b453cd0c36d023c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-17  Daiki Ueno  <ueno@unixuser.org>
+
+       * pgg-gpg.el (pgg-gpg-process-region): Make USE-AGENT nil
+       if PASSPHRASE is given.
+
 2007-02-17  Chris Moore <dooglus@gmail.com>
 
        * jka-cmpr-hook.el (jka-compr-compression-info-list): Recognize

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 84bf81a858e0c04d60fdc15a0545c0f79463cfe0..a2cd14eaae38db62f0d972063d6ec9ce97e7690f 100644 (file)
--- 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"