(ange-ftp-file-modtime): Check a 213 response

from the server for the format we expect.  Don't use it if it
doesn't look like what the Internet draft for FTP extensions
specifies.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 289d6af..285c04b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,11 @@
-Mon Jul 09 2001  Martin Stjernholm  <bug-cc-mode@gnu.org>
+2001-07-09  Gerd Moellmann  <gerd@gnu.org>
+
+       * net/ange-ftp.el (ange-ftp-file-modtime): Check a 213 response
+       from the server for the format we expect.  Don't use it if it
+       doesn't look like what the Internet draft for FTP extensions
+       specifies.
+
+2001-07-09  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
        * cc-cmds.el: Extended the kludge to interoperate with the
        delsel and pending-del packages wrt to the new function

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 10b03a4..fb2f812 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3437,8 +3437,12 @@ Value is (0 0) if the modification time cannot be determined."
                                  (list 'quote "mdtm" (cadr (cdr parsed)))))
         (line (cdr res))
         (modtime '(0 0)))
-    (when (string-match "^213" line)
-       ;; MDTM should return "213 YYYYMMDDhhmmss" GMT on success.
+    ;; MDTM should return "213 YYYYMMDDhhmmss" GMT on success
+    ;; following the Internet draft for FTP extensions.
+    ;; Bob@rattlesnake.com reports that is returns something different
+    ;; for at least one FTP server.  So, let's use the response only
+    ;; if it matches the Internet draft.
+    (when (string-match "^213 [0-9]\\{14\\}$" line)
       (setq modtime
            (encode-time
             (string-to-number (substring line 16 18))