* pgg-pgp.el (pgg-pgp-process-region): bind process-environment

locally so that setenv's effect won't last forever.
pgg-pgp5.el (pgg-pgp5-process-region): Ditto.

diff --git a/ChangeLog b/ChangeLog
index cc2f705..8690bed 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-19  Takanori Saneto  <sanewo@ba2.so-net.ne.jp>
+
+       * pgg-pgp.el (pgg-pgp-process-region): bind process-environment
+       locally so that setenv's effect won't last forever.
+       pgg-pgp5.el (pgg-pgp5-process-region): Ditto.
+
 2000-09-13   Daiki Ueno  <ueno@unixuser.org>
 
        * mime-play.el (mime-play-entity): Pass easymenu-style menu to

diff --git a/pgg-pgp.el b/pgg-pgp.el
index 159098f..a888cc8 100644 (file)
--- a/pgg-pgp.el
+++ b/pgg-pgp.el
@@ -76,6 +76,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
                  (list (concat "2>" errors-file-name))))
         (shell-file-name pgg-pgp-shell-file-name)
         (shell-command-switch pgg-pgp-shell-command-switch)
+        (process-environment process-environment)
         (output-buffer pgg-output-buffer)
         (errors-buffer pgg-errors-buffer)
         (process-connection-type nil)

diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 1fe971e..998c8a3 100644 (file)
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -91,6 +91,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
                  (list (concat "2>" errors-file-name))))
         (shell-file-name pgg-pgp5-shell-file-name)
         (shell-command-switch pgg-pgp5-shell-command-switch)
+        (process-environment process-environment)
         (output-buffer pgg-output-buffer)
         (errors-buffer pgg-errors-buffer)
         (process-connection-type nil)