* fileio.c (auto_save_1) Call Ffile_modes for remote files.

diff --git a/src/ChangeLog b/src/ChangeLog
index 73fb09883eba2b650f8cb62035f162f4db7607c8..e58ddb742843a671490d711fada7ff79af131604 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-03  Michael Albinus  <michael.albinus@gmx.de>
+
+       * fileio.c (auto_save_1) Call Ffile_modes for remote files.
+
 2004-09-30  Kenichi Handa  <handa@m17n.org>
 
        * process.c (send_process): Free composition data.

diff --git a/src/fileio.c b/src/fileio.c
index a346b4df26099599dc0475c40e5335a6b8b2e1b1..c10969378bcbd0e9e84aab8e9ca2e51d347142dc 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5718,6 +5718,9 @@ auto_save_1 ()
       && stat (SDATA (current_buffer->filename), &st) >= 0)
     /* But make sure we can overwrite it later!  */
     auto_save_mode_bits = st.st_mode | 0600;
+  else if (! NILP (current_buffer->filename))
+    /* Remote files don't cooperate with stat.  */
+    auto_save_mode_bits = XINT (Ffile_modes (current_buffer->filename)) | 0600;
   else
     auto_save_mode_bits = 0666;