# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1285563708 -32400
# Node ID c13750cbdbc5b188db8bd2d7369b51c04fdefb27
# Parent  75fb6d1241c3cb5876d511fe014330b6770cb528# Parent  cdab39f6969810b6f36c5e08f33f500f97e3134a
tar-mode.el (tar-header-block-tokenize): Decode filenames in "ustar" format.

diff -r 75fb6d1241c3 -r c13750cbdbc5 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 27 13:53:47 2010 +0900
+++ b/lisp/ChangeLog	Mon Sep 27 14:01:48 2010 +0900
@@ -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 -r 75fb6d1241c3 -r c13750cbdbc5 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Mon Sep 27 13:53:47 2010 +0900
+++ b/lisp/tar-mode.el	Mon Sep 27 14:01:48 2010 +0900
@@ -286,7 +286,8 @@
             (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)))