* pgg-pgp5.el (pgg-pgp5-process-region): Don't use binary-funcall.

diff --git a/pgg/ChangeLog b/pgg/ChangeLog
index e3b4a43..2279bbc 100644 (file)
--- a/pgg/ChangeLog
+++ b/pgg/ChangeLog
@@ -1,5 +1,7 @@
 2002-10-01  Simon Josefsson  <jas@extundo.com>
 
+       * pgg-pgp5.el (pgg-pgp5-process-region): Don't use binary-funcall.
+
        * pgg-gpg.el (pgg-gpg-process-region): Use expand-file-name
        instead of concat.
 

diff --git a/pgg/pgg-pgp5.el b/pgg/pgg-pgp5.el
index c44d10b..9624836 100644 (file)
--- a/pgg/pgg-pgp5.el
+++ b/pgg/pgg-pgp5.el
@@ -92,10 +92,12 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
       (setenv "PGPPASSFD" "0"))
     (unwind-protect
        (progn
-         (setq process
-               (apply #'binary-funcall
-                      #'start-process-shell-command "*PGP*" output-buffer
-                      program args))
+         (let ((coding-system-for-read 'binary)
+               (coding-system-for-write 'binary))
+           (setq process
+                 (apply #'funcall
+                        #'start-process-shell-command "*PGP*" output-buffer
+                        program args)))
          (set-process-sentinel process #'ignore)
          (when passphrase
            (process-send-string process (concat passphrase "\n")))