diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58ea6df92db..b37581909eb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
 	* net/tramp.el (tramp-advice-file-expand-wildcards): Simplify.
 	Don't set `ad-return-value' if `ad-do-it' doesn't.
 
+	* net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file
+	modification time.
+
 2009-11-17  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* menu-bar.el: Put "Use system font" in Option-menu.
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index a04f891b3f5..a07b5df0a1e 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -727,6 +727,10 @@ is no information where to trace the message.")
 	       (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))