From 1133ea69e5ba5ab22305be1ebc5dc0c9a0d71a37 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Dec 2000 04:24:51 +0000 Subject: [PATCH] (pgg-gpg-process-region): Don't use `as-binary-output-file' and `insert-file-contents-as-raw-text-CRLF'. --- pgg-gpg.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4