* net/tramp.el (tramp-do-copy-or-rename-file): Flush the cache of

the source file in case of `rename'.  Reported by Pete Forman
<pete.forman@westerngeco.com>.

2 files changed, 11 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 761a8fa3f81..2cc13c1c664 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-24  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (tramp-do-copy-or-rename-file): Flush the cache of
+        the source file in case of `rename'.  Reported by Pete Forman
+        <pete.forman@westerngeco.com>.
+
 2008-01-24  Ken Manheimer  <ken.manheimer@gmail.com>
 
         * allout.el (allout-keybindings-list): In initial setting, express
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 7c3153fc0be..4aa092ad704 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3034,6 +3034,11 @@ and `rename'.  FILENAME and NEWNAME must be absolute file names."
           ;; One of them must be a Tramp file.
           (error "Tramp implementation says this cannot happen")))
 
+      ;; In case of `rename', we must flush the cache of the source file.
+      (when (and t1 (eq op 'rename))
+        (with-parsed-tramp-file-name filename nil
+          (tramp-flush-file-property v localname)))
+
       ;; When newname did exist, we have wrong cached values.
       (when t2
         (with-parsed-tramp-file-name newname nil