From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 11 Jul 2012 12:03:19 +0000 (+0200)
Subject: * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.
X-Git-Tag: emacs-24.2.90~1199^2~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ad4afe1f5d1381044eb34ef7c83fd6e4ff22cb6;p=emacs.git

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

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))