Re: [h-e-w] Trouble with TRAMP temp files under Windows 7

[Katz, Dan]

> From: Eli Zaretskii [mailto:address@hidden 
> Sent: Tuesday, January 03, 2012 2:36 PM
>
>> From: "Katz, Dan" <address@hidden>
>> Date: Tue, 3 Jan 2012 18:20:10 +0000
>>
>>> does Emacs succeed in deleting it, or do you get the same "permission
>>> denied" error again?
>> 
>> If I just call delete-file as you suggest, it succeeds and deletes the file.
>
> Which probably means that some process holds that file open when Emacs
> originally tries to delete it.  Maybe the ftp process?

As a crude attempt to test the idea that some process is temporarily holding 
the file open, I modified ange-ftp-del-tmp-name to add a 4 second sleep before 
deleting the temporary file.  When I did this, I was sometimes able to get into 
the /ftp:address@hidden:/gnu directory.  And sometimes not (though this time 
it's a different problem):

======================================================================================================================
Debugger entered--Lisp error: (ftp-error #("FTP Error: DIR failed: 
0.05498.13200 PORT command successful. Consider using PASV." 23 82 
(front-sticky (field inhibit-line-move-field-capture) rear-nonsticky t field 
output inhibit-line-move-field-capture t)))
  signal(ftp-error (#("FTP Error: DIR failed: 0.05498.13200 PORT command 
successful. Consider using PASV." 23 82 (front-sticky (field 
inhibit-line-move-field-capture) rear-nonsticky t field output 
inhibit-line-move-field-capture t))))
  (cond ((and completion (zerop (length localname)) (memq operation (quote 
(file-exists-p file-directory-p)))) t) ((and completion (zerop (length 
localname)) (memq operation (quote (expand-file-name file-name-as-directory)))) 
filename) (t (signal (car err) (cdr err))))
  (condition-case err (let ((sf (symbol-function foreign))) (when (and (listp 
sf) (eq (car sf) (quote autoload))) (let ((default-directory 
(tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) 
(quote nomessage)))) (apply foreign operation args)) ((debug quit) (let 
(tramp-message-show-message) (tramp-message v 1 "Interrupt received in 
operation %s" (append (list operation) args))) (signal (car err) (cdr err))) 
(error (cond ((and completion (zerop (length localname)) (memq operation (quote 
(file-exists-p file-directory-p)))) t) ((and completion (zerop (length 
localname)) (memq operation (quote (expand-file-name file-name-as-directory)))) 
filename) (t (signal (car err) (cdr err))))))
  (if foreign (condition-case err (let ((sf (symbol-function foreign))) (when 
(and (listp sf) (eq (car sf) (quote autoload))) (let ((default-directory 
(tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) 
(quote nomessage)))) (apply foreign operation args)) ((debug quit) (let 
(tramp-message-show-message) (tramp-message v 1 "Interrupt received in 
operation %s" (append (list operation) args))) (signal (car err) (cdr err))) 
(error (cond ((and completion (zerop (length localname)) (memq operation (quote 
...))) t) ((and completion (zerop (length localname)) (memq operation (quote 
...))) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler 
operation args))
  (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method 
v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname 
(tramp-file-name-localname v))) (if foreign (condition-case err (let ((sf 
(symbol-function foreign))) (when (and (listp sf) (eq (car sf) (quote 
autoload))) (let ((default-directory ...)) (load (cadr sf) (quote noerror) 
(quote nomessage)))) (apply foreign operation args)) ((debug quit) (let 
(tramp-message-show-message) (tramp-message v 1 "Interrupt received in 
operation %s" (append (list operation) args))) (signal (car err) (cdr err))) 
(error (cond ((and completion (zerop ...) (memq operation ...)) t) ((and 
completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) 
(cdr err)))))) (tramp-run-real-handler operation args)))
  (with-parsed-tramp-file-name filename nil (if foreign (condition-case err 
(let ((sf (symbol-function foreign))) (when (and (listp sf) (eq (car sf) (quote 
autoload))) (let ((default-directory ...)) (load (cadr sf) (quote noerror) 
(quote nomessage)))) (apply foreign operation args)) ((debug quit) (let 
(tramp-message-show-message) (tramp-message v 1 "Interrupt received in 
operation %s" (append (list operation) args))) (signal (car err) (cdr err))) 
(error (cond ((and completion (zerop ...) (memq operation ...)) t) ((and 
completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) 
(cdr err)))))) (tramp-run-real-handler operation args)))
  (let* ((filename (tramp-replace-environment-variables (apply (quote 
tramp-file-name-for-operation) operation args))) (completion 
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler 
filename))) (with-parsed-tramp-file-name filename nil (if foreign 
(condition-case err (let ((sf (symbol-function foreign))) (when (and (listp sf) 
(eq ... ...)) (let (...) (load ... ... ...))) (apply foreign operation args)) 
((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt 
received in operation %s" (append ... args))) (signal (car err) (cdr err))) 
(error (cond ((and completion ... ...) t) ((and completion ... ...) filename) 
(t (signal ... ...))))) (tramp-run-real-handler operation args))))
  (progn (let* ((filename (tramp-replace-environment-variables (apply (quote 
tramp-file-name-for-operation) operation args))) (completion 
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler 
filename))) (with-parsed-tramp-file-name filename nil (if foreign 
(condition-case err (let ((sf ...)) (when (and ... ...) (let ... ...)) (apply 
foreign operation args)) ((debug quit) (let (tramp-message-show-message) 
(tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err) 
(cdr err))) (error (cond (... t) (... filename) (t ...)))) 
(tramp-run-real-handler operation args)))))
  (unwind-protect (progn (let* ((filename (tramp-replace-environment-variables 
(apply (quote tramp-file-name-for-operation) operation args))) (completion 
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler 
filename))) (with-parsed-tramp-file-name filename nil (if foreign 
(condition-case err (let (...) (when ... ...) (apply foreign operation args)) 
((debug quit) (let ... ...) (signal ... ...)) (error (cond ... ... ...))) 
(tramp-run-real-handler operation args))))) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let* 
((filename (tramp-replace-environment-variables (apply ... operation args))) 
(completion (tramp-completion-mode-p)) (foreign 
(tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name 
filename nil (if foreign (condition-case err (let ... ... ...) (... ... ...) 
(error ...)) (tramp-run-real-handler operation args))))) (set-match-data 
save-match-data-internal (quote evaporate))))
  (save-match-data (let* ((filename (tramp-replace-environment-variables (apply 
(quote tramp-file-name-for-operation) operation args))) (completion 
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler 
filename))) (with-parsed-tramp-file-name filename nil (if foreign 
(condition-case err (let ((sf ...)) (when (and ... ...) (let ... ...)) (apply 
foreign operation args)) ((debug quit) (let (tramp-message-show-message) 
(tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err) 
(cdr err))) (error (cond (... t) (... filename) (t ...)))) 
(tramp-run-real-handler operation args)))))
  (if tramp-mode (save-match-data (let* ((filename 
(tramp-replace-environment-variables (apply (quote 
tramp-file-name-for-operation) operation args))) (completion 
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler 
filename))) (with-parsed-tramp-file-name filename nil (if foreign 
(condition-case err (let (...) (when ... ...) (apply foreign operation args)) 
((debug quit) (let ... ...) (signal ... ...)) (error (cond ... ... ...))) 
(tramp-run-real-handler operation args))))) (tramp-run-real-handler operation 
args))
  tramp-file-name-handler(insert-directory "/ftp:address@hidden:/gnu/" "-al" 
nil t)
  insert-directory("/ftp:address@hidden:/gnu/" "-al" nil t)
  dired-insert-directory("/ftp:address@hidden:/gnu/" "-al" nil nil t)
  dired-readin-insert()
  dired-readin()
  dired-internal-noselect("/ftp:address@hidden:/gnu/" nil)
  dired-noselect("/ftp:address@hidden:/gnu")
  run-hook-with-args-until-success(dired-noselect "/ftp:address@hidden:/gnu")
  find-file-noselect("/ftp:address@hidden:/gnu" nil nil t)
  find-file("/ftp:address@hidden:/gnu" t)
  call-interactively(find-file)
  ido-file-internal(raise-frame)
  ido-find-file()
  call-interactively(ido-find-file nil nil)
======================================================================================================================

Adding a sleep time is obviously no solution to the problem, but the change in 
behavior would seem to suggest that we're on the right track with a timing 
issue.  Of course, whether that's due to the ftp process holding on, or a virus 
scanner (as Andy Moreton suggested) or something else is not really clear yet.

Dan
----------------------------------------------------------------
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipient is prohibited. If you received
this in error, please contact the sender and delete the material from any
computer.

Bain Capital, LLC
Boston, MA  USA
+1 (617) 516 2000