Bug in gnus/uudecode.el (was: Possible bug in TRAMP?)

Bug in gnus/uudecode.el (was: Possible bug in TRAMP?)

[Reiner Steib]

On Tue, Mar 22 2005, Stephen J. Turnbull wrote:

>>>>>> "Andrew" == Andrew Nesbit <andrew@siru.org> writes:
>
>     Andrew> OK, thanks for pointing that out. So it seems it's a bug
>     Andrew> in some uudecode/uuencode tool on the remote Mac OS X.
>
> No, it's a bug in the uudecode library in Gnus, which assumes that
> 'nil is always a valid coding system pair.  In XEmacs it isn't.

Could you be more specific (which function, ...) and maybe provide a
patch making it compatible with XEmacs, please?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Bug in gnus/uudecode.el

[Stephen J. Turnbull]

>>>>> "Reiner" == Reiner Steib <reinersteib+gmane@imap.cc> writes:

    >> No, it's a bug in the uudecode library in Gnus, which assumes
    >> that 'nil is always a valid coding system pair.  In XEmacs it
    >> isn't.

    Reiner> Could you be more specific (which function, ...) and maybe
    Reiner> provide a patch making it compatible with XEmacs, please?

*sigh* I hate doing this---I don't have very good reason to suppose
this will work for anyone but me---but I don't have time to do it
right.  Here's a patch against current XEmacs package CVS, but it
should be pretty close for this ancient protocol.

Index: lisp/uudecode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/uudecode.el,v
retrieving revision 1.3
diff -u -p -r1.3 uudecode.el
--- lisp/uudecode.el	28 Sep 2004 02:21:21 -0000	1.3
+++ lisp/uudecode.el	22 Mar 2005 14:51:09 -0000
@@ -99,7 +99,7 @@ (defun uudecode-decode-region-external
 			      (make-temp-name "uu")
 			      uudecode-temporary-file-directory))))
 	(let ((cdir default-directory)
-	      default-process-coding-system)
+	      (default-process-coding-system '(binary . binary)))
 	  (unwind-protect
 	      (with-temp-buffer
 		(insert "begin 600 " (file-name-nondirectory tempfile) "\n")



-- 
School of Systems and Information Engineering http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba                    Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
               Ask not how you can "do" free software business;
              ask what your business can "do for" free software.