From: tomo <tomo>
Date: Mon, 25 Dec 2000 04:58:07 +0000 (+0000)
Subject: (pgg-gpg-process-region): Use `binary-to-text-funcall' instead of
X-Git-Tag: semi-1_14_2~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e9aaf60acbbdf6af222f4a70f394186654a1e74;p=elisp%2Fsemi.git

(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
--- 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")))