X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg-pgp5.el;h=58c330935369df45e7d7bd154095ea6e7a90dcf3;hb=6f278921e37a2013a4f0aa106b4ad9a8f7afc05f;hp=f4cfedcbf165a3668fa9d16f4d0b79f1ceecf0b4;hpb=851c9b1b7f14a4c39d4b9164fb45f1d697ecf719;p=elisp%2Fsemi.git

diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index f4cfedc..58c3309 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -25,6 +25,7 @@
 
 ;;; Code:
 
+(require 'mel) ; binary-to-text-funcall, binary-write-decoded-region
 (eval-when-compile (require 'pgg))
 
 (defgroup pgg-pgp5 ()
@@ -103,11 +104,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-funcall
+		       #'start-process-shell-command "*PGP*" output-buffer
+		       program args))
 	  (set-process-sentinel process #'ignore)
 	  (when passphrase
 	    (process-send-string process (concat passphrase "\n")))
@@ -211,7 +211,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
     (unwind-protect
 	(progn
 	  (set-default-file-modes 448)
-	  (binary-write-region start end orig-file))
+	  (binary-write-decoded-region start end orig-file))
       (set-default-file-modes orig-mode))
     (when (stringp signature)
       (copy-file signature (setq signature (concat orig-file ".asc")))