# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1201210012 0
# Node ID 16643a585a09373e758559825c9694c05c88b3f3
# Parent  a146c6aabda1016892205a3792b222e31a812927
* 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>.

diff -r a146c6aabda1 -r 16643a585a09 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Thu Jan 24 18:45:04 2008 +0000
+++ b/lisp/net/tramp.el	Thu Jan 24 21:26:52 2008 +0000
@@ -3034,6 +3034,11 @@
 	  ;; 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