* pgg-pgp.el (pgg-pgp-verify-region): Inline

binary-write-decoded-region from MEL.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0396f86..041860d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-10-04  Simon Josefsson  <jas@extundo.com>
 
+       * pgg-pgp.el (pgg-pgp-verify-region): Inline
+       binary-write-decoded-region from MEL.
+
        * pgg.el (pgg-encrypt-region): Support sign.
 
        * pgg-gpg.el (pgg-gpg-encrypt-region): Ditto.

diff --git a/lisp/pgg-pgp.el b/lisp/pgg-pgp.el
index e1bccf2..544fdff 100644 (file)
--- a/lisp/pgg-pgp.el
+++ b/lisp/pgg-pgp.el
@@ -189,7 +189,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")))