[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el |
Date: |
Fri, 21 Dec 2001 18:58:24 -0500 |
Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.17 emacs/lisp/net/ange-ftp.el:1.18
*** emacs/lisp/net/ange-ftp.el:1.17 Sat Oct 27 03:51:38 2001
--- emacs/lisp/net/ange-ftp.el Fri Dec 21 18:57:20 2001
***************
*** 3454,3460 ****
;; address@hidden 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))
--- 3454,3460 ----
;; address@hidden 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 (save-match-data (string-match "^213 [0-9]\\{14\\}$" line))
(setq modtime
(encode-time
(string-to-number (substring line 16 18))