From 720fcc49ac495e6225fa67b3924f078ae93a1395 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 06:24:57 +0000 Subject: [PATCH] (pgg-pgp-process-region): Use `binary-start-process-shell-command'. --- mime/pgg-pgp.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/mime/pgg-pgp.el b/mime/pgg-pgp.el index 33f2481..dadd5fe 100644 --- a/mime/pgg-pgp.el +++ b/mime/pgg-pgp.el @@ -88,11 +88,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"))) -- 1.7.10.4