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

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

* arc-mode.el (archive-find-type): Allow for a PK00 string before
the PK\003\004 header (Bug#3770).
eb1727a4 · Chong Yidong · 208384c5 · eb1727a4 · eb1727a4
Commit eb1727a4 authored Jul 12, 2009 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/arc-mode.el lisp/arc-mode.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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