* arc-mode.el (archive-find-type): Allow for a PK00 string before

the PK\003\004 header (Bug#3770).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67c3b353032bf6cdab11d16c567ded67f3c36e8b..70bb8c953c850766a56605679fbebcf712e09e23 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-12  Peter Jolly  <peter@jollys.org>  (tiny change)
+
+       * arc-mode.el (archive-find-type): Allow for a PK00 string before
+       the PK\003\004 header (Bug#3770).
+
 2009-07-12  Guanpeng Xu  <herberteuler@hotmail.com>
 
        * pcomplete.el (pcomplete-comint-setup): Check for

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index cc59d6e5678212c213f8a012b7f2b8c3f1a610a9..e812a47ddc6bef9905be1db024d30a418f7a93e9 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -716,7 +716,7 @@ archive.
   ;; The funny [] here make it unlikely that the .elc file will be treated
   ;; as an archive by other software.
   (let (case-fold-search)
-    (cond ((looking-at "[P]K\003\004") 'zip)
+    (cond ((looking-at "\\(PK00\\)?[P]K\003\004") 'zip)
          ((looking-at "..-l[hz][0-9ds]-") 'lzh)
          ((looking-at "....................[\334]\247\304\375") 'zoo)
          ((and (looking-at "\C-z")     ; signature too simple, IMHO