Re: ange-ftp errors out for some directories

[lawrence mitchell]

Richard Stallman wrote:

>       A typical backtrace for me, is
>     something like:

>       ange-ftp-error("homepages.demon.co.uk" "vegetable" "DIR failed:
>       550 /vol2/demon.co.uk/v/e/g/: Permission denied."
>       ange-ftp-ls("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/" "-al" 
> t nil)
>       
> ange-ftp-get-files("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/")
>       
> ange-ftp-file-symlink-p("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")

>     Where I have access to /vol1/demon.co.uk/v/e/g/vegetable, but
>     not to its parent.

> That is just part of the backtrace.  Can you show me the rest, please?

Certainly.  The full backtrace is:

Debugger entered--Lisp error: (ftp-error #("FTP Error: DIR failed: 550 
/vol2/demon.co.uk/v/e/g/: Permission denied." 0 23 nil 23 71 (rear-nonsticky t 
field output inhibit-line-move-field-capture t)))
  signal(ftp-error (#("FTP Error: DIR failed: 550 /vol2/demon.co.uk/v/e/g/: 
Permission denied." 0 23 nil 23 71 (rear-nonsticky t field output 
inhibit-line-move-field-capture t))))
  ange-ftp-error("homepages.demon.co.uk" "vegetable" #("DIR failed: 550 
/vol2/demon.co.uk/v/e/g/: Permission denied." 0 12 nil 12 60 
(inhibit-line-move-field-capture t field output rear-nonsticky t)))
  ange-ftp-ls("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/" "-al" t nil)
  ange-ftp-get-files("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/")
  
ange-ftp-file-symlink-p("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  apply(ange-ftp-file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  ange-ftp-hook-function(file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  apply(ange-ftp-hook-function file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  tramp-ftp-file-name-handler(file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  apply(tramp-ftp-file-name-handler file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  tramp-file-name-handler(file-symlink-p 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  file-symlink-p("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable")
  
ange-ftp-insert-directory("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/"
 "--dired -al" nil t)
  apply(ange-ftp-insert-directory 
("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t))
  ange-ftp-hook-function(insert-directory 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t)
  apply(ange-ftp-hook-function insert-directory 
("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t))
  tramp-ftp-file-name-handler(insert-directory 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t)
  apply(tramp-ftp-file-name-handler insert-directory 
("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t))
  tramp-file-name-handler(insert-directory 
"/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" "--dired -al" 
nil t)
  
insert-directory("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/"
 "--dired -al" nil t)
  
dired-insert-directory("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/"
 "-al" nil nil t)
  dired-readin-insert()
  dired-readin()
  
dired-internal-noselect("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/"
 nil)
  
dired-noselect(#("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/"
 0 27 nil 27 60 (inhibit-line-move-field-capture t field output rear-nonsticky 
t) 60 61 nil))
  run-hook-with-args-until-success(dired-noselect 
#("/ftp:homepages.demon.co.uk:/vol2/demon.co.uk/v/e/g/vegetable/" 0 27 nil 27 
60 (inhibit-line-move-field-capture t field output rear-nonsticky t) 60 61 nil))
  find-file-noselect("/ftp:homepages.demon.co.uk:~/" nil nil t)
  find-file("/ftp:homepages.demon.co.uk:~/" t)
  call-interactively(find-file)

-- 
lawrence mitchell <address@hidden>