From: tomo <tomo>
Date: Fri, 15 Dec 2000 04:31:38 +0000 (+0000)
Subject: (pgg-pgp5-process-region): Don't use `as-binary-process'.
X-Git-Tag: semi-1_14_0-pre5~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=851c9b1b7f14a4c39d4b9164fb45f1d697ecf719;p=elisp%2Fsemi.git

(pgg-pgp5-process-region): Don't use `as-binary-process'.
(pgg-scheme-verify-region): Use `binary-write-region' instead of
`write-region-as-binary'.
(pgg-scheme-snarf-keys-region): Don't use
`write-region-as-raw-text-CRLF'.
---

diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 83e8187..f4cfedc 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -103,10 +103,11 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
       (setenv "PGPPASSFD" "0"))
     (unwind-protect
 	(progn
-	  (as-binary-process
-	   (setq process
-		 (apply #'start-process-shell-command "*PGP*" output-buffer
-			program args)))
+	  (let ((coding-system-for-read 'binary)
+		(coding-system-for-write 'binary))
+	    (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")))
@@ -210,7 +211,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
     (unwind-protect
 	(progn
 	  (set-default-file-modes 448)
-	  (write-region-as-binary start end orig-file))
+	  (binary-write-region start end orig-file))
       (set-default-file-modes orig-mode))
     (when (stringp signature)
       (copy-file signature (setq signature (concat orig-file ".asc")))
@@ -243,7 +244,8 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 	 (args
 	  (list "+verbose=1" "+batchmode=1" "+language=us" "-a"
 		key-file)))
-    (write-region-as-raw-text-CRLF start end key-file)
+    (let ((coding-system-for-write 'raw-text-dos))
+      (write-region start end key-file))
     (pgg-pgp5-process-region start end nil pgg-pgp5-pgpk-program args)
     (delete-file key-file)
     (pgg-process-when-success nil)))