(pgg-gpg-process-region): Use `binary-to-text-funcall' instead of

`binary-start-process'.

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 5b29a76..dc6c5ae 100644 (file)
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -25,6 +25,7 @@
 
 ;;; Code:
 
+(require 'mel) ; binary-to-text-funcall
 (eval-when-compile (require 'pgg))
 
 (defgroup pgg-gpg ()
@@ -78,11 +79,10 @@
        (progn
          (set-default-file-modes 448)
          (setq process
-               (apply #'binary-start-process "*GnuPG*" errors-buffer
+               (apply #'binary-to-text-funcall
+                      pgg-gpg-messages-coding-system
+                      #'start-process "*GnuPG*" errors-buffer
                       program args))
-         (if (fboundp 'set-process-coding-system)
-             (set-process-coding-system process
-                                        pgg-gpg-messages-coding-system))
          (set-process-sentinel process #'ignore)
          (when passphrase
            (process-send-string process (concat passphrase "\n")))