PGG

[Simon Josefsson]

Simon Josefsson <jas at extundo.com> writes:

> This was trivial, fortunately.  With the following patch, PGG

I forgot pgg-gpg and pgg-pgp5... 

Index: pgg-gpg.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/pgg/pgg-gpg.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- pgg-gpg.el	2002/09/24 15:15:31	1.1
+++ pgg-gpg.el	2002/09/28 15:13:22	1.2
@@ -25,7 +25,6 @@
 
 ;;; Code:
 
-(require 'mel) ; binary-to-text-funcall
 (eval-when-compile (require 'pgg))
 
 (defgroup pgg-gpg ()
Index: pgg-pgp5.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/pgg/pgg-pgp5.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- pgg-pgp5.el	2002/09/24 15:15:31	1.1
+++ pgg-pgp5.el	2002/09/28 15:13:22	1.2
@@ -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 tcs
     (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")))