2002-09-28 Simon Josefsson <jas@extundo.com>

[gnus] / pgg / pgg-pgp5.el

diff --git a/pgg/pgg-pgp5.el b/pgg/pgg-pgp5.el
index e774ae4..ef64f47 100644 (file)
--- a/pgg/pgg-pgp5.el
+++ b/pgg/pgg-pgp5.el
@@ -25,7 +25,6 @@
 
 ;;; Code:
 
-(require 'mel) ; binary-to-text-funcall, binary-write-decoded-region
 (eval-when-compile (require 'pgg))
 
 (defgroup pgg-pgp5 ()
@@ -211,7 +210,9 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
     (unwind-protect
        (progn
          (set-default-file-modes 448)
-         (binary-write-decoded-region start end orig-file))
+         (let ((coding-system-for-write 'binary)
+               jka-compr-compression-info-list jam-zcat-filename-list)
+           (write-region start end orig-file)))
       (set-default-file-modes orig-mode))
     (when (stringp signature)
       (copy-file signature (setq signature (concat orig-file ".asc")))