# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1258469859 0
# Node ID 723842a982736a3bd8256849527438430c9f6e96
# Parent  6804c4648feedfaedee3cf252bea24cecacde953
* net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file
modification time.

diff -r 6804c4648fee -r 723842a98273 lisp/net/tramp-gvfs.el
--- a/lisp/net/tramp-gvfs.el	Tue Nov 17 13:47:29 2009 +0000
+++ b/lisp/net/tramp-gvfs.el	Tue Nov 17 14:57:39 2009 +0000
@@ -727,6 +727,10 @@
 	       (signal (car err) (cdr err)))
 	   (delete-file tmpfile)))))
 
+    ;; Set file modification time.
+    (when (or (eq visit t) (stringp visit))
+      (set-visited-file-modtime (nth 5 (file-attributes filename))))
+
     ;; The end.
     (when (or (eq visit t) (null visit) (stringp visit))
       (tramp-message v 0 "Wrote %s" filename))