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

	* pgg-pgp5.el (pgg-scheme-verify-region): Inline
	binary-write-decoded-region from MEL.

	* pgg-pgp5.el, pgg-gpg.el: Don't require mel.

diff --git a/pgg/ChangeLog b/pgg/ChangeLog
index c98ab8e..377dd70 100644 (file)
--- a/pgg/ChangeLog
+++ b/pgg/ChangeLog
@@ -1,5 +1,10 @@
 2002-09-28  Simon Josefsson  <jas@extundo.com>
 
+       * pgg-pgp5.el (pgg-scheme-verify-region): Inline
+       binary-write-decoded-region from MEL.
+
+       * pgg-pgp5.el, pgg-gpg.el: Don't require mel.
+
        * alist.el, calist.el: Don't require product/APEL.
 
        * pgg-parse.el (top-level): Remove dependency on static.el,

diff --git a/pgg/pgg-gpg.el b/pgg/pgg-gpg.el
index 873cff4..926140e 100644 (file)
--- a/pgg/pgg-gpg.el
+++ b/pgg/pgg-gpg.el
@@ -25,7 +25,6 @@
 
 ;;; Code:
 
-(require 'mel) ; binary-to-text-funcall
 (eval-when-compile (require 'pgg))
 
 (defgroup pgg-gpg ()

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")))