From: ueno <ueno>
Date: Fri, 20 Oct 2000 00:20:20 +0000 (+0000)
Subject: * pgg-pgp.el (pgg-pgp-process-region): bind process-environment
X-Git-Tag: remi-1_14_2-1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4bb5276171619a441b7559aa1d4cb1c2919cb76d;p=elisp%2Fsemi.git

* 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 b5b4de6..b677275 100644
--- 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-29  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
 	* mime-edit.el (mime-file-types): Fix to use application/msword
diff --git a/pgg-pgp.el b/pgg-pgp.el
index 4b033e5..4f3fbd7 100644
--- 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
--- 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)