From fdadc6a450bec4c94d11b12b010370df3dd0728e Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 10 Nov 1999 14:55:51 +0000
Subject: [PATCH] * pgg-gpg.el (pgg-gpg-process-region): Enclose
 `start-process' with `as-binary-process'.

* pgg-pgp.el (pgg-pgp-process-region): Enclose `start-process'
with `as-binary-process'.

* pgg-pgp5.el (pgg-pgp5-process-region): Enclose `start-process'
with `as-binary-process'.
---
 pgg-gpg.el  |    7 ++++---
 pgg-pgp.el  |    7 ++++---
 pgg-pgp5.el |    7 ++++---
 3 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 60493bd..3414ffc 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -92,9 +92,10 @@
     (with-current-buffer (get-buffer-create output-buffer)
       (buffer-disable-undo)
       (erase-buffer))
-    (setq process
-	  (apply #'start-process-shell-command "*GnuPG*" output-buffer
-		 program args))
+    (as-binary-process
+     (setq process
+	   (apply #'start-process-shell-command "*GnuPG*" output-buffer
+		  program args)))
     (set-process-sentinel process 'ignore)
     (when passphrase
       (process-send-string process (concat passphrase "\n")))
diff --git a/pgg-pgp.el b/pgg-pgp.el
index 70b4db4..28e48cb 100644
--- a/pgg-pgp.el
+++ b/pgg-pgp.el
@@ -86,9 +86,10 @@
       (erase-buffer))
     (when passphrase
       (setenv "PGPPASSFD" "0"))
-    (setq process
-	  (apply #'start-process-shell-command "*PGP*" output-buffer
-		 program args))
+    (as-binary-process
+     (setq process
+	   (apply #'start-process-shell-command "*PGP*" output-buffer
+		  program args)))
     (set-process-sentinel process 'ignore)
     (when passphrase
       (process-send-string process (concat passphrase "\n")))
diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 494b678..8598e0e 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -101,9 +101,10 @@
       (erase-buffer))
     (when passphrase
       (setenv "PGPPASSFD" "0"))
-    (setq process
-	  (apply #'start-process-shell-command "*PGP*" output-buffer
-		 program args))
+    (as-binary-process
+     (setq process
+	   (apply #'start-process-shell-command "*PGP*" output-buffer
+		  program args)))
     (set-process-sentinel process 'ignore)
     (when passphrase
       (process-send-string process (concat passphrase "\n")))
-- 
1.7.10.4