* net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set

default-directory to a sane value when calling start-process.

2 files changed, 12 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4bf785d5b1a..613bd9e6bcd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-27  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set
+        default-directory to a sane value when calling start-process.
+
 2007-01-27  Eli Zaretskii  <eliz@gnu.org>
 
         * ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5625072a155..257fbc4e47b 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3245,8 +3245,13 @@ be a local filename.  The method used must be an out-of-band method."
 
       ;; Use rcp-like program for file transfer.
       (unwind-protect
-          (let ((p (apply 'start-process (buffer-name trampbuf) trampbuf
-                          copy-program copy-args)))
+          (let* ((default-directory
+                   (if (and (stringp default-directory)
+                            (file-accessible-directory-p default-directory))
+                       default-directory
+                     (tramp-temporary-file-directory)))
+                 (p (apply 'start-process (buffer-name trampbuf) trampbuf
+                           copy-program copy-args)))
             (tramp-set-process-query-on-exit-flag p nil)
             (tramp-process-actions p multi-method method user host
                                    tramp-actions-copy-out-of-band))