* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)