From: ueno <ueno>
Date: Tue, 26 Dec 2000 10:23:01 +0000 (+0000)
Subject: * pgg-def.el (pgg-messages-coding-system): Use `defvar' to define.
X-Git-Tag: semi-1_14_3~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=de7dec47fc0210a49500578f44f28ad34fd0a909;p=elisp%2Fsemi.git

* pgg-def.el (pgg-messages-coding-system): Use `defvar' to define.

* pgg-pgp.el (pgg-pgp-messages-coding-system): Abolish.
(pgg-pgp-process-region): Use `binary-funcall' instead of
`binary-to-text-funcall'.

* pgg-pgp5.el (pgg-pgp5-messages-coding-system): Abolish.
(pgg-pgp5-process-region): Use `binary-funcall' instead of
`binary-to-text-funcall'.
---

diff --git a/pgg-def.el b/pgg-def.el
index d5f01b8..5999e9b 100644
--- a/pgg-def.el
+++ b/pgg-def.el
@@ -58,10 +58,8 @@
   :group 'pgg
   :type 'boolean)
 
-(defcustom pgg-messages-coding-system 'undecided
-  "Coding system used when reading from a PGP external process."
-  :group 'pgg
-  :type 'coding-system)
+(defvar pgg-messages-coding-system 'undecided
+  "Coding system used when reading from a PGP external process.")
 
 (defvar pgg-status-buffer " *PGG status*")
 (defvar pgg-errors-buffer " *PGG errors*")
diff --git a/pgg-pgp.el b/pgg-pgp.el
index c005a22..91f6134 100644
--- a/pgg-pgp.el
+++ b/pgg-pgp.el
@@ -59,9 +59,6 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 (defvar pgg-pgp-user-id nil
   "PGP ID of your default identity.")
 
-(defvar pgg-pgp-messages-coding-system pgg-messages-coding-system
-  "Coding system used when reading from a PGP external process.")
-
 (defvar pgg-scheme-pgp-instance nil)
 
 ;;;###autoload
@@ -93,8 +90,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
     (unwind-protect
 	(progn
 	  (setq process
-		(apply #'binary-to-text-funcall
-		       pgg-pgp-messages-coding-system
+		(apply #'binary-funcall
 		       #'start-process-shell-command "*PGP*" output-buffer
 		       program args))
 	  (set-process-sentinel process #'ignore)
diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 9a0ccf9..58c3309 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -74,9 +74,6 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 (defvar pgg-pgp5-user-id nil
   "PGP 5.* ID of your default identity.")
 
-(defvar pgg-pgp5-messages-coding-system pgg-messages-coding-system
-  "Coding system used when reading from a PGP5 external process.")
-
 (defvar pgg-scheme-pgp5-instance nil)
 
 ;;;###autoload
@@ -108,8 +105,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
     (unwind-protect
 	(progn
 	  (setq process
-		(apply #'binary-to-text-funcall
-		       pgg-pgp5-messages-coding-system
+		(apply #'binary-funcall
 		       #'start-process-shell-command "*PGP*" output-buffer
 		       program args))
 	  (set-process-sentinel process #'ignore)