# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1291982204 -7200
# Node ID 930d5c8afda28bd7321f7cc0aa972f4ae889c568
# Parent  dc4c9e6071a2c50ff82ae4bee30b926a5d7eb065
 arc-mode.el (archive-zip-extract): If w32-quote-process-args is nil, do quote
 archive member names.  Suggested by hm <helmut.muelner@joanneum.at>.

diff -r dc4c9e6071a2 -r 930d5c8afda2 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Dec 09 19:47:49 2010 -0800
+++ b/lisp/ChangeLog	Fri Dec 10 13:56:44 2010 +0200
@@ -1,3 +1,8 @@
+2010-12-10  Eli Zaretskii  <eliz@gnu.org>
+
+	* arc-mode.el (archive-zip-extract): If w32-quote-process-args is
+	nil, do quote archive member names.  (Bug#6144)
+
 2010-12-10  Glenn Morris  <rgm@gnu.org>
 
 	* files.el (diff-no-select): Declare.
diff -r dc4c9e6071a2 -r 930d5c8afda2 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Thu Dec 09 19:47:49 2010 -0800
+++ b/lisp/arc-mode.el	Fri Dec 10 13:56:44 2010 +0200
@@ -1813,10 +1813,12 @@
      archive
      ;; unzip expands wildcards in NAME, so we need to quote it.  But
      ;; not on DOS/Windows, since that fails extraction on those
-     ;; systems, and file names with wildcards in zip archives don't
-     ;; work there anyway.
+     ;; systems (unless w32-quote-process-args is nil), and file names
+     ;; with wildcards in zip archives don't work there anyway.
      ;; FIXME: Does pkunzip need similar treatment?
-     (if (and (not (memq system-type '(windows-nt ms-dos)))
+     (if (and (or (not (memq system-type '(windows-nt ms-dos)))
+		  (and (boundp 'w32-quote-process-args)
+		       (null w32-quote-process-args)))
 	      (equal (car archive-zip-extract) "unzip"))
 	 (shell-quote-argument name)
        name)