From: tomo <tomo>
Date: Fri, 15 Dec 2000 04:24:51 +0000 (+0000)
Subject: (pgg-gpg-process-region): Don't use `as-binary-output-file' and
X-Git-Tag: semi-1_14_0-pre5~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1133ea69e5ba5ab22305be1ebc5dc0c9a0d71a37;p=elisp%2Fsemi.git

(pgg-gpg-process-region): Don't use `as-binary-output-file' and
`insert-file-contents-as-raw-text-CRLF'.
---

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 5ac69f6..dfd9ca7 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -74,9 +74,10 @@
     (unwind-protect
 	(progn
 	  (set-default-file-modes 448)
-	  (as-binary-output-file
-	   (setq process
-		 (apply #'start-process "*GnuPG*" errors-buffer program args)))
+	  (let ((coding-system-for-write 'binary))
+	    (setq process
+		  (apply #'start-process "*GnuPG*" errors-buffer
+			 program args)))
 	  (set-process-sentinel process #'ignore)
 	  (when passphrase
 	    (process-send-string process (concat passphrase "\n")))
@@ -91,7 +92,8 @@
 	    (buffer-disable-undo)
 	    (erase-buffer)
 	    (if (file-exists-p output-file-name)
-		(insert-file-contents-as-raw-text-CRLF output-file-name))
+		(let ((coding-system-for-read 'raw-text-dos))
+		  (insert-file-contents output-file-name)))
 	    (set-buffer errors-buffer)
 	    (if (memq status '(stop signal))
 		(error "%s exited abnormally: '%s'" program exit-status))