3442 |
;; Bob@rattlesnake.com reports that is returns something different |
;; Bob@rattlesnake.com reports that is returns something different |
3443 |
;; for at least one FTP server. So, let's use the response only |
;; for at least one FTP server. So, let's use the response only |
3444 |
;; if it matches the Internet draft. |
;; if it matches the Internet draft. |
3445 |
(when (string-match "^213 [0-9]\\{14\\}$" line) |
(when (save-match-data (string-match "^213 [0-9]\\{14\\}$" line)) |
3446 |
(setq modtime |
(setq modtime |
3447 |
(encode-time |
(encode-time |
3448 |
(string-to-number (substring line 16 18)) |
(string-to-number (substring line 16 18)) |