* net/ange-ftp.el (ange-ftp-cf1): Update the files cache.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ceed6c6675..77f9ce29c0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-11  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.
+
 2012-07-11  Chong Yidong  <cyd@gnu.org>
 
         * vc/log-edit.el (log-edit-vc-backend): New variable.
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1d06a7fa729..dd695c29c78 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3793,7 +3793,8 @@ so return the size on the remote host exactly. See RFC 3659."
                    (format "Copying %s to %s" f-abbr t-abbr)))
              (list 'ange-ftp-cf2
                    newname t-host t-user binary temp1 temp2 cont)
-             nowait))
+             nowait)
+            (ange-ftp-add-file-entry newname))
 
         ;; newname wasn't remote.
         (ange-ftp-cf2 t nil newname t-host t-user binary temp1 temp2 cont))