From eb1727a44948a8b0e710fa1b1adb73fa1a623bd7 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 12 Jul 2009 18:56:38 +0000 Subject: * arc-mode.el (archive-find-type): Allow for a PK00 string before the PK\003\004 header (Bug#3770). --- lisp/arc-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/arc-mode.el') diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index cc59d6e5678..e812a47ddc6 100644 --- 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 -- cgit v1.2.3