From a40b2a5ef032790fa5c10ceebacbc41cbb4f03f5 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Dec 2000 04:30:22 +0000 Subject: [PATCH] (pgg-pgp-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'. --- pgg-pgp.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/pgg-pgp.el b/pgg-pgp.el index 4f3fbd7..33f2481 100644 --- a/pgg-pgp.el +++ b/pgg-pgp.el @@ -88,10 +88,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"))) @@ -198,7 +199,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"))) @@ -234,7 +235,8 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (args (list "+verbose=1" "+batchmode" "+language=us" "-kaf" 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-pgp-process-region start end nil pgg-pgp-program args) (delete-file key-file) (pgg-process-when-success nil))) -- 1.7.10.4