tm 7.69.

[elisp/tm.git] / tm-pgp.el

diff --git a/tm-pgp.el b/tm-pgp.el
index 6ebbd72..6cc7378 100644 (file)
--- a/tm-pgp.el
+++ b/tm-pgp.el
@@ -8,7 +8,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/12/7
 ;;; Version:
-;;;    $Id: tm-pgp.el,v 7.15 1996/05/27 08:16:38 morioka Exp $
+;;;    $Id: tm-pgp.el,v 7.16 1996/06/27 14:26:56 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, PGP, security
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -89,13 +89,7 @@
             (goto-char (point-min))
             (re-search-forward "^-+BEGIN PGP MESSAGE-+$" nil t)
             )
-          (let ((program-coding-system-alist
-                 (if (boundp 'program-coding-system-alist)
-                     (cons '((nil . ".*pgp.*") *noconv* . *noconv*)
-                           program-coding-system-alist))
-                 ))
-            (mc-decrypt)
-            )
+          (as-binary-process (mc-decrypt))
           (goto-char (point-min))
           (delete-region (point-min)
                          (and