*** lisp/uudecode.el~	Wed Feb  8 05:17:15 2006
--- lisp/uudecode.el	Sat May 20 19:21:04 2006
***************
*** 98,104 ****
  			      (make-temp-name "uu")
  			      uudecode-temporary-file-directory))))
  	(let ((cdir default-directory)
! 	      default-process-coding-system)
  	  (unwind-protect
  	      (with-temp-buffer
  		(insert "begin 600 " (file-name-nondirectory tempfile) "\n")
--- 98,104 ----
  			      (make-temp-name "uu")
  			      uudecode-temporary-file-directory))))
  	(let ((cdir default-directory)
! 	      (default-process-coding-system '(binary . binary)))
  	  (unwind-protect
  	      (with-temp-buffer
  		(insert "begin 600 " (file-name-nondirectory tempfile) "\n")