(ange-ftp-remote-shell): Remove variable.

(ange-ftp-call-chmod): Reference remote-shell-program instead of
ange-ftp-remote-shell.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ccc2a8b63d3bd7d7bdd994169aa3a97b8aa515b7..267307ed3959e4e5774e0289babc0a6e4227e227 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-10-10  Kai Grossjohann  <kai.grossjohann@gmx.net>
+
+       * net/ange-ftp.el (ange-ftp-remote-shell): Remove variable.
+       (ange-ftp-call-chmod): Reference remote-shell-program instead of
+       ange-ftp-remote-shell.
+
 2004-10-10  Andreas Schwab  <schwab@suse.de>
 
        * emacs-lisp/byte-opt.el (byte-optimize-backward-word): Optimize

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index c1f3c0a8d52cbb72ffd8ed820f62e63d3a1c116d..16a4826b8aebfe3785312046bc314421dc5571d1 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4514,9 +4514,6 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
               1))
     (apply 'call-process program nil (not discard) nil arguments)))
 
-(defvar ange-ftp-remote-shell "rsh"
-  "Remote shell to use for chmod, if FTP server rejects the `chmod' command.")
-
 ;; Handle an attempt to run chmod on a remote file
 ;; by using the ftp chmod command.
 (defun ange-ftp-call-chmod (args)
@@ -4541,7 +4538,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
                                                        abbr))))
                (or (car result)
                    (call-process
-                    ange-ftp-remote-shell
+                    remote-shell-program
                     nil t nil host dired-chmod-program mode name))))))
      rest))
   (setq ange-ftp-ls-cache-file nil)    ;Stop confusing Dired.