tar-mode.el (tar-header-block-tokenize): Decode filenames in "ustar" format.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce0236e34d7..0bbc1648dec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2010-09-27  Kenichi Handa  <handa@m17n.org>
 
+        * tar-mode.el (tar-header-block-tokenize): Decode filenames in
+        "ustar" format.
+
+2010-09-27  Kenichi Handa  <handa@m17n.org>
+
         * international/mule.el (define-coding-system): Docstring fixed.
 
         * international/mule-diag.el (describe-character-set): Use princ
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index be9af8e293d..a3f717ff40c 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -286,7 +286,8 @@ write-date, checksum, link-type, and link-name."
             (let* ((size (tar-parse-octal-integer
                           string tar-size-offset tar-time-offset))
                    ;; -1 so as to strip the terminating 0 byte.
-                   (name (buffer-substring pos (+ pos size -1)))
+                   (name (decode-coding-string 
+                          (buffer-substring pos (+ pos size -1)) coding))
                    (descriptor (tar-header-block-tokenize
                                 (+ pos (tar-roundup-512 size))
                                 coding)))