* net/tramp.el (tramp-handle-file-local-copy): Set

`enable-multibyte-characters' to nil.  Reported by Chris Moore
<christopher.ian.moore@gmail.com>.

2 files changed, 11 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39bd07ac23a..4ed8a4c18dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-11  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (tramp-handle-file-local-copy): Set
+        `enable-multibyte-characters' to nil.  Reported by Chris Moore
+        <christopher.ian.moore@gmail.com>.
+
 2007-01-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * diff-mode.el (diff-sanity-check-context-hunk-half)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 4d3ee29c4d6..6577a775c96 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3812,10 +3812,14 @@ This will break if COMMAND prints a newline, followed by the value of
 
                ;; Here is where loc-enc and loc-dec used to be let-bound.
                (if (and (symbolp loc-dec) (fboundp loc-dec))
-                   ;; If local decoding is a function, we call it.
+                   ;; If local decoding is a function, we call it.  We
+                   ;; must disable multibyte, because
+                   ;; `uudecode-decode-region' doesn't handle it
+                   ;; correctly.
                    (let ((tmpbuf (get-buffer-create " *tramp tmp*")))
                      (set-buffer tmpbuf)
                      (erase-buffer)
+                     (set-buffer-multibyte nil)
                      (insert-buffer-substring tramp-buf)
                      (tramp-message-for-buffer
                       multi-method method user host