diff --git a/ChangeLog b/ChangeLog
index d75e73eb673b1348dfdef49f81c00a1900c674c1_Q2hhbmdlTG9n..3db2065aa4a8c3b6131fc746bc09ddb102ff2224_Q2hhbmdlTG9n 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-23  Jan Vroonhof  <vroonhof@math.ethz.ch>
+
+	* jka-compr.el: Globally replace 'no-conversion with 'binary
+
 2000-02-09  Martin Buchholz  <martin@xemacs.org>
 
 	* crypt.el (crypt-build-encoding-alist): Remove bzip2 `--quiet'
diff --git a/jka-compr.el b/jka-compr.el
index d75e73eb673b1348dfdef49f81c00a1900c674c1_amthLWNvbXByLmVs..3db2065aa4a8c3b6131fc746bc09ddb102ff2224_amthLWNvbXByLmVs 100644
--- a/jka-compr.el
+++ b/jka-compr.el
@@ -320,7 +320,7 @@
 				     (jka-value-if-bound
 				           coding-system-for-read) 
 				     'undecided))
-	    (coding-system-for-write 'no-conversion))
+	    (coding-system-for-write 'binary))
 	    
 	(unwind-protect
 
@@ -464,7 +464,7 @@
 
 	    ;; save value used by the real write-region
 	    ;; without any code conversion.
-	    (let ((coding-system-for-read 'no-conversion))
+	    (let ((coding-system-for-read 'binary))
 	      (jka-compr-call-process compress-program
 				      (concat compress-message
 					      " " base-name)
@@ -474,7 +474,7 @@
 				      compress-args))
 
 	    (with-current-buffer temp-buffer
-	      (let ((coding-system-for-write 'no-conversion))
+	      (let ((coding-system-for-write 'binary))
 		(if (memq system-type '(ms-dos windows-nt))
 		    (setq buffer-file-type t) )
 		(jka-compr-run-real-handler 'write-region
@@ -689,8 +689,8 @@
 		;; conversion.  An appropriate code conversion (if
 		;; necessary) is done by the later I/O operation
 		;; (e.g. load).
-		(let ((coding-system-for-read 'no-conversion)
-		      (coding-system-for-write 'no-conversion))
+		(let ((coding-system-for-read 'binary)
+		      (coding-system-for-write 'binary))
 		  (jka-compr-call-process uncompress-program
 					  (concat uncompress-message
 						  " " base-name)
@@ -855,7 +855,7 @@
 	       ;; Don't do multibyte encoding on the compressed files.
 	       (when (boundp 'file-coding-system-alist)
 	       (let ((elt (cons (jka-compr-info-regexp x)
-                                '(no-conversion . no-conversion))))
+                                '(binary . binary))))
 		 (setq file-coding-system-alist
 		       (cons elt file-coding-system-alist))
 		 (setq jka-compr-added-to-file-coding-system-alist