* mime-view.el (mime-view-read-charset): Remove redundant checking for

[elisp/semi.git] / pgg-gpg.el

diff --git a/pgg-gpg.el b/pgg-gpg.el
index d288082..873cff4 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 ()
@@ -47,9 +48,6 @@
 (defvar pgg-gpg-user-id nil
   "GnuPG ID of your default identity.")
 
-(defvar pgg-gpg-messages-coding-system pgg-messages-coding-system
-  "Coding system used when reading from a GnuPG external process.")
-
 (defvar pgg-scheme-gpg-instance nil)
 
 ;;;###autoload
@@ -77,8 +75,7 @@
     (unwind-protect
        (progn
          (set-default-file-modes 448)
-         (let ((coding-system-for-read 'pgg-gpg-messages-coding-system)
-               (coding-system-for-write 'binary))
+         (let ((coding-system-for-write 'binary))
            (setq process
                  (apply #'start-process "*GnuPG*" errors-buffer
                         program args)))