From: tomo <tomo>
Date: Tue, 19 Dec 2000 06:25:26 +0000 (+0000)
Subject: (pgg-pgp5-process-region): Use `binary-start-process-shell-command'.
X-Git-Tag: semi21-1_14_0-1~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=86508c468d5ec74c136dd4c3c1c65cc28857bbba;p=elisp%2Flemi.git

(pgg-pgp5-process-region): Use `binary-start-process-shell-command'.
---

diff --git a/mime/pgg-pgp5.el b/mime/pgg-pgp5.el
index f4cfedc..fa1b0ee 100644
--- a/mime/pgg-pgp5.el
+++ b/mime/pgg-pgp5.el
@@ -103,11 +103,10 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
       (setenv "PGPPASSFD" "0"))
     (unwind-protect
 	(progn
-	  (let ((coding-system-for-read 'binary)
-		(coding-system-for-write 'binary))
-	    (setq process
-		  (apply #'start-process-shell-command "*PGP*" output-buffer
-			 program args)))
+	  (setq process
+		(apply #'binary-start-process-shell-command "*PGP*"
+		       output-buffer
+		       program args))
 	  (set-process-sentinel process #'ignore)
 	  (when passphrase
 	    (process-send-string process (concat passphrase "\n")))