* 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.
From emiko-1_14.

diff --git a/ChangeLog b/ChangeLog
index 7ecb98c..6219ac1 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-10-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * mime-edit.el (mime-edit-process-multipart-1): Typo fix

diff --git a/pgg-pgp.el b/pgg-pgp.el
index 4b033e5..4f3fbd7 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 cde2b6f..83e8187 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)