Re: ange-ftp problem

[Juri Linkov]

Stefan Monnier <address@hidden> writes:
> Sorry for not precisely describing what I meant by "precise recipe", but if
> you assume I'm a complete idiot, it helps ;-) : I don't use dired, so I have
> no idea how you did the copying from local to ftp.

Sorry, I assumed that you have all necessary tools to reproduce this
problem.  I didn't expect you use neither dired nor ange-ftp with
ftp server.  But remember that usually trying to describe the problem
without hope to reproduce it might be as difficult as describing
colors to the blind ;-)

> Also this kind of problem is often/usually dependent on the ftp server, so
> some amount of info about the ftp server(s) where this appears would help.

One of the FTP servers that returns an error in case when the file name is
used as a directory name is ProFTPD 1.2.9.

> Finally, I don't think I have write-access to any ftp server any more.
> Can I use sftp instead?  How would I go about telling ange-ftp to use sftp?

AFAIK, sftp can't be used with ange-ftp, because there is no need to
support sftp in ange-ftp when TRAMP already handles it well.

> One more thing: if someone could reproduce (part of) the problem without
> dired, that would help (or if someone could edebug dired to see where the
> problem comes from).

I looked at the problem more closely, and every of dired and ange-ftp
in itself looks right, but the problem comes from their interaction.

> Oh, wait: could you get a backtrace (by setting setq debug-on-error or if
> that doesn't work, by setting debug-on-signal) ?

Yes, if it will help you:

Debugger entered--Lisp error: (ftp-error #("FTP Error: DIR failed: 550 
/tmp/testfile: Not a directory" 0 23 nil 23 57 (rear-nonsticky t field output 
inhibit-line-move-field-capture t)))
  signal(ftp-error (#("FTP Error: DIR failed: 550 /tmp/testfile: Not a 
directory" 0 23 nil 23 57 (rear-nonsticky t field output 
inhibit-line-move-field-capture t))))
  (save-excursion (let (... ...) (pop-to-buffer ...) (goto-char ...) 
(select-window cur)) (signal (quote ftp-error) (list ...)))
  ange-ftp-error("localhost" "user" #("DIR failed: 550 /tmp/testfile: Not a 
directory" 0 12 nil 12 46 (inhibit-line-move-field-capture t field output 
rear-nonsticky t)))
  (if no-error nil (ange-ftp-error host user (concat "DIR failed: " ...)))
  (if (car (setq result ...)) (save-excursion (set-buffer ...) (erase-buffer) 
(if ... ... ... ...) (while ... ...) (goto-char 1) (run-hooks ...) (if parse 
...) (run-hooks ...) (setq ange-ftp-ls-cache-file key ange-ftp-ls-cache-lsargs 
lsargs ange-ftp-ls-cache-res ...) (if ... nil ange-ftp-ls-cache-res)) (if 
no-error nil (ange-ftp-error host user ...)))
  (unwind-protect (if (car ...) (save-excursion ... ... ... ... ... ... ... ... 
... ...) (if no-error nil ...)) (ange-ftp-del-tmp-name temp))
  (if (and ange-ftp-ls-cache-file (string-equal key ange-ftp-ls-cache-file) (or 
dumb ...)) ange-ftp-ls-cache-res (setq temp (ange-ftp-make-tmp-name host)) (if 
wildcard (progn ... ...) (setq lscmd ...)) (unwind-protect (if ... ... ...) 
(ange-ftp-del-tmp-name temp)))
  (let* ((host ...) (user ...) (name ...) (key ...) (host-type ...) (dumb ...) 
result temp lscmd parse-func) (if (string-equal name "") (setq name ...)) (if 
(and ange-ftp-ls-cache-file ... ...) ange-ftp-ls-cache-res (setq temp ...) (if 
wildcard ... ...) (unwind-protect ... ...)))
  (if parsed (let* (... ... ... ... ... ... result temp lscmd parse-func) (if 
... ...) (if ... ange-ftp-ls-cache-res ... ... ...)) (error "Should never 
happen. Please report. Bug ref. no.: 1"))
  (let* ((ange-ftp-this-file ...) (parsed ...)) (if parsed (let* ... ... ...) 
(error "Should never happen. Please report. Bug ref. no.: 1")))
  ange-ftp-ls("testfile" "--dired -ald" nil)
  (if wildcard (let (...) (ange-ftp-ls ... switches nil nil t)) (ange-ftp-ls 
file switches full))
  (insert (if wildcard (let ... ...) (ange-ftp-ls file switches full)))
  (if (and (not wildcard) (setq tem ...)) (ange-ftp-insert-directory 
(ange-ftp-expand-symlink tem ...) switches wildcard full) (insert (if wildcard 
... ...)))
  (if parsed (if (and ... ...) (ange-ftp-insert-directory ... switches wildcard 
full) (insert ...)) (ange-ftp-real-insert-directory file switches wildcard 
full))
  (let ((short ...) (parsed ...) tem) (if parsed (if ... ... ...) 
(ange-ftp-real-insert-directory file switches wildcard full)))
  ange-ftp-insert-directory("testfile" "--dired -ald" nil nil)
  apply(ange-ftp-insert-directory ("testfile" "--dired -ald" nil nil))
  (progn (apply fn args))
  (unwind-protect (progn (apply fn args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply fn args))
  (if fn (save-match-data (apply fn args)) (ange-ftp-run-real-handler operation 
args))
  (let ((fn ...)) (if fn (save-match-data ...) (ange-ftp-run-real-handler 
operation args)))
  ange-ftp-hook-function(insert-directory "testfile" "--dired -ald" nil nil)
  apply(ange-ftp-hook-function insert-directory ("testfile" "--dired -ald" nil 
nil))
  tramp-ftp-file-name-handler(insert-directory "testfile" "--dired -ald" nil 
nil)
  apply(tramp-ftp-file-name-handler insert-directory ("testfile" "--dired -ald" 
nil nil))
  tramp-file-name-handler(insert-directory "testfile" "--dired -ald" nil nil)
  insert-directory("testfile" "--dired -ald" nil nil)
  (while --dolist-temp-- (setq f (car --dolist-temp--)) (setq --dolist-temp-- 
(cdr --dolist-temp--)) (insert-directory f switches nil nil))
  (let ((--dolist-temp-- file-list) f) (while --dolist-temp-- (setq f ...) 
(setq --dolist-temp-- ...) (insert-directory f switches nil nil)))
  (dolist (f file-list) (insert-directory f switches nil nil))
  (if file-list (dolist (f file-list) (insert-directory f switches nil nil)) 
(insert-directory dir switches wildcard (not wildcard)))
  (let ((opoint ...) (process-environment ...) end) (if (or dired-use-ls-dired 
...) (setq switches ...)) (if file-list (dolist ... ...) (insert-directory dir 
switches wildcard ...)) (if (not ...) (save-excursion ... ... ... ... ... ...)) 
(dired-insert-set-properties opoint (point)) (unless (save-excursion ... ...) 
(let ... ...)) (save-excursion (goto-char opoint) (if ... ...) (when wildcard 
...)))
  dired-insert-directory("/ftp:address@hidden:/tmp/" "-ald" ("testfile"))
  (let ((default-directory directory)) (dired-insert-directory directory 
(concat dired-actual-switches "d") (list filename)))
  (let (buffer-read-only opoint) (beginning-of-line) (setq opoint (point)) (let 
(...) (dired-insert-directory directory ... ...)) (goto-char opoint) (when 
marker-char (let ... ...)) (goto-char opoint) (let (...) (if ... ... ...)) 
(forward-line -1) (if dired-after-readin-hook (save-excursion ...)) 
(dired-move-to-filename))
  (catch (quote not-found) (if (string= directory cur-dir) (progn ... ... ...) 
(if ... ... ...)) (let (buffer-read-only opoint) (beginning-of-line) (setq 
opoint ...) (let ... ...) (goto-char opoint) (when marker-char ...) (goto-char 
opoint) (let ... ...) (forward-line -1) (if dired-after-readin-hook ...) 
(dired-move-to-filename)) nil)
  (setq filename (if relative (file-relative-name filename directory) 
(file-name-nondirectory filename)) reason (catch (quote not-found) (if ... ... 
...) (let ... ... ... ... ... ... ... ... ... ... ...) nil))
  (let* ((opoint ...) (cur-dir ...) (orig-file-name filename) (directory ...) 
reason) (setq filename (if relative ... ...) reason (catch ... ... ... nil)) 
(if reason (goto-char opoint)) (not reason))
  dired-omit-old-add-entry("/ftp:address@hidden:/tmp/testfile" 67 nil)
  (if dired-omit-files-p (let (...) (if ... ... t)) (dired-omit-old-add-entry 
filename marker-char relative))
  dired-add-entry("/ftp:address@hidden:/tmp/testfile" 67)
  apply(dired-add-entry ("/ftp:address@hidden:/tmp/testfile" 67))
  (if (apply fun args) (setq success-list (cons ... success-list)))
  (save-current-buffer (set-buffer buf) (if (apply fun args) (setq success-list 
...)))
  (with-current-buffer buf (if (apply fun args) (setq success-list ...)))
  (while --dolist-temp-- (setq buf (car --dolist-temp--)) (setq --dolist-temp-- 
(cdr --dolist-temp--)) (with-current-buffer buf (if ... ...)))
  (let ((--dolist-temp-- ...) buf) (while --dolist-temp-- (setq buf ...) (setq 
--dolist-temp-- ...) (with-current-buffer buf ...)))
  (dolist (buf (dired-buffers-for-dir ... file)) (with-current-buffer buf (if 
... ...)))
  (let (success-list) (dolist (buf ...) (with-current-buffer buf ...)) 
success-list)
  dired-fun-in-all-buffers("/ftp:address@hidden:/tmp/" "testfile" 
dired-add-entry "/ftp:address@hidden:/tmp/testfile" 67)
  dired-add-file("/ftp:address@hidden:/tmp/testfile" 67)
  (progn (funcall file-creator from to dired-overwrite-confirmed) (if overwrite 
(dired-remove-file to)) (setq success-count (1+ success-count)) (message "%s: 
%d of %d" operation success-count total) (dired-add-file to actual-marker-char))
  (condition-case err (progn (funcall file-creator from to 
dired-overwrite-confirmed) (if overwrite ...) (setq success-count ...) (message 
"%s: %d of %d" operation success-count total) (dired-add-file to 
actual-marker-char)) (file-error (progn ... ...)))
  (let* ((overwrite ...) (dired-overwrite-confirmed ...) (actual-marker-char 
...)) (condition-case err (progn ... ... ... ... ...) (file-error ...)))
  (if (not to) (setq skipped (cons ... skipped)) (let* (... ... ...) 
(condition-case err ... ...)))
  (lambda (from) (setq to (funcall name-constructor from)) (if (equal to from) 
(progn ... ...)) (if (not to) (setq skipped ...) (let* ... 
...)))("/home/user/testfile")
  mapcar((lambda (from) (setq to (funcall name-constructor from)) (if (equal to 
from) (progn ... ...)) (if (not to) (setq skipped ...) (let* ... ...))) 
("/home/user/testfile"))
  (let (to overwrite-query overwrite-backup-query) (mapcar (function ...) 
fn-list))
  (let (failures skipped (success-count 0) (total ...)) (let (to 
overwrite-query overwrite-backup-query) (mapcar ... fn-list)) (cond (failures 
...) (skipped ...) (t ...)))
  dired-create-files(dired-copy-file "Copy [-p]" ("/home/user/testfile") 
(lambda (from) (expand-file-name (file-name-nondirectory from) target)) 67)
  (if (and (consp into-dir) (functionp ...)) (apply (car into-dir) operation 
rfn-list fn-list target (cdr into-dir)) (if (not ...) (error "Marked %s: target 
must be a directory: %s" operation target)) (or into-dir (setq target ...)) 
(dired-create-files file-creator operation fn-list (if into-dir ... ...) 
marker-char))
  (let* ((fn-list ...) (rfn-list ...) (dired-one-file ...) (target-dir ...) 
(default ...) (target ...) (into-dir ...)) (if (and ... ...) (apply ... 
operation rfn-list fn-list target ...) (if ... ...) (or into-dir ...) 
(dired-create-files file-creator operation fn-list ... marker-char)))
  dired-do-create-files(copy dired-copy-file "Copy [-p]" nil 67 nil nil)
  (let ((dired-recursive-copies dired-recursive-copies)) (dired-do-create-files 
(quote copy) (function dired-copy-file) (if dired-copy-preserve-time "Copy 
[-p]" "Copy") arg dired-keep-marker-copy nil dired-copy-how-to-fn))
  dired-do-copy(nil)
  call-interactively(dired-do-copy)

-- 
http://www.jurta.org/emacs/