# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1097438004 0
# Node ID 4f0c0062f9748ef3200cba1974afa320bb836e34
# Parent  0867872551d993b8777423010652e7e2210cd0ce
(ange-ftp-remote-shell): Remove variable.
(ange-ftp-call-chmod): Reference remote-shell-program instead of
ange-ftp-remote-shell.

diff -r 0867872551d9 -r 4f0c0062f974 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 10 16:56:21 2004 +0000
+++ b/lisp/ChangeLog	Sun Oct 10 19:53:24 2004 +0000
@@ -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 -r 0867872551d9 -r 4f0c0062f974 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sun Oct 10 16:56:21 2004 +0000
+++ b/lisp/net/ange-ftp.el	Sun Oct 10 19:53:24 2004 +0000
@@ -4514,9 +4514,6 @@
 	       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 @@
                                                        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.