* 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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 761a8fa3f81ebea1d85b9c825f27d557a2a77e49..2cc13c1c6645e5e3f763d1538ae39238f76dcab5 100644 (file)
--- 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 7c3153fc0be695cbab012a4d6e0aeb58594fa093..4aa092ad70406b5f3c64d4889db591cefff76f88 100644 (file)
--- 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