(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.

2 files changed, 14 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 289d6af3cd2..285c04bd078 100644
--- 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 10b03a474cf..fb2f8120c4c 100644
--- 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))