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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce0236e34d7641d6f698b13eaca7e7a36d70e31b..0bbc1648dec40849d398d1dc5a6a8d4e2b93321d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index be9af8e293d1b34f24763379d2b03bb7375fa5b6..a3f717ff40c2673867130c7943bfd1e1305328c2 100644 (file)
--- 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)))