diff lisp/arc-mode.el @ 90573:858cb33ae39d

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 357-381) - Merge from gnus--rel--5.10 - Update from CVS - Merge from erc--emacs--21 * gnus--rel--5.10 (patch 116-122) - Update from CVS - Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-98

--- a/lisp/arc-mode.el	Thu Aug 03 00:41:54 2006 +0000
+++ b/lisp/arc-mode.el	Thu Aug 03 11:45:23 2006 +0000
@@ -892,10 +892,14 @@
 		    (save-excursion
 		      (funcall set-auto-coding-function
 			       filename (- (point-max) (point-min)))))
-	       ;; dos-w32.el defines find-operation-coding-system for
-	       ;; DOS/Windows systems which preserves the coding-system
-	       ;; of existing files.  We want it to act here as if the
-	       ;; extracted file existed.
+	       ;; dos-w32.el defines the function
+	       ;; find-buffer-file-type-coding-system for DOS/Windows
+	       ;; systems which preserves the coding-system of existing files.
+	       ;; (That function is called via file-coding-system-alist.)
+	       ;; Here, we want it to act as if the extracted file existed.
+	       ;; The following let-binding of file-name-handler-alist forces
+	       ;; find-file-not-found-set-buffer-file-coding-system to ignore
+	       ;; the file's name (see dos-w32.el).
 	       (let ((file-name-handler-alist
 		      '(("" . archive-file-name-handler))))
 		 (car (find-operation-coding-system