diff lisp/tar-mode.el @ 101220:be5a7a68d09d

(tar-rename-entry): Only test the magic string, without its version number, and then set both.

--- a/lisp/tar-mode.el	Fri Jan 16 00:43:40 2009 +0000
+++ b/lisp/tar-mode.el	Fri Jan 16 02:38:58 2009 +0000
@@ -1053,8 +1053,8 @@
                (string-match "/" encoded-new-name
 			     (- (length encoded-new-name) 99))
 	       (< (match-beginning 0) 155))
-      (unless (equal (tar-header-magic descriptor) "ustar\0\0")
-        (tar-alter-one-field tar-magic-offset "ustar\0\0"))
+      (unless (equal (tar-header-magic descriptor) "ustar\0")
+        (tar-alter-one-field tar-magic-offset (concat "ustar\0" "00")))
       (setq prefix (substring encoded-new-name 0 (match-beginning 0)))
       (setq encoded-new-name (substring encoded-new-name (match-end 0))))