bug#4929: 23.1.50; failed to access file inside zip archive when using tramp.

[Michael Albinus <michael.albinus@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 416 bytes --]

"Gideon Stupp (gstupp)" <gstupp@cisco.com> writes:

> 1. Viewed zip archive with tramp - worked fine.
>    "/scp:xxxx:/tmp/my.zip"
> 2. Pressed <ENTER> on one of the files and got "Opening output file: no
>    such file or directory, /tmp/archive.tmp3488-Qf/arc-mode.3488_Ky"
> error.

I've fixed this in the trunk with the appended patch. Could you, please,
check whether it works for you?

Best regards, Michael.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 2095 bytes --]

*** /tmp/ediff5666akT	2009-11-15 14:56:12.000000000 +0100
--- /home/albinus/src/emacs/lisp/arc-mode.el	2009-11-15 14:43:00.000000000 +0100
***************
*** 818,832 ****
  file by that name already exists in DIR, a unique new name is generated
  using `make-temp-file', and the generated name is returned."
    (let ((fullname (expand-file-name fname dir))
! 	(alien (string-match file-name-invalid-regexp fname)))
!     (if (or alien (file-exists-p fullname))
! 	(make-temp-file
  	 (expand-file-name
  	  (if (if (fboundp 'msdos-long-file-names)
  		  (not (msdos-long-file-names)))
  	      "am"
  	    "arc-mode.")
! 	  dir))
        fullname)))
  
  (defun archive-maybe-copy (archive)
--- 818,839 ----
  file by that name already exists in DIR, a unique new name is generated
  using `make-temp-file', and the generated name is returned."
    (let ((fullname (expand-file-name fname dir))
! 	(alien (string-match file-name-invalid-regexp fname))
! 	(tmpfile
  	 (expand-file-name
  	  (if (if (fboundp 'msdos-long-file-names)
  		  (not (msdos-long-file-names)))
  	      "am"
  	    "arc-mode.")
! 	  dir)))
!     (if (or alien (file-exists-p fullname))
! 	(progn
! 	  ;; Maked sure all the leading directories in
! 	  ;; archive-local-name exist under archive-tmpdir, so that
! 	  ;; the directory structure recorded in the archive is
! 	  ;; reconstructed in the temporary directory.
! 	  (make-directory (file-name-directory tmpfile) t)
! 	  (make-temp-file tmpfile))
        fullname)))
  
  (defun archive-maybe-copy (archive)
***************
*** 843,853 ****
  		   archive)))
  	  (setq archive-local-name
  		(archive-unique-fname archive-name archive-tmpdir))
- 	  ;; Maked sure all the leading directories in
- 	  ;; archive-local-name exist under archive-tmpdir, so that
- 	  ;; the directory structure recorded in the archive is
- 	  ;; reconstructed in the temporary directory.
- 	  (make-directory (file-name-directory archive-local-name) t)
  	  (save-restriction
  	    (widen)
  	    (write-region start (point-max) archive-local-name nil 'nomessage))
--- 850,855 ----