From 6e967b19b675b62f12d1061f8aa0ef3032dfb6fa Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 20 Oct 2005 20:08:19 +0000 Subject: [PATCH] * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no group id is given. --- lisp/ChangeLog | 5 +++++ lisp/net/ange-ftp.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c427ce64966..00c80f4e65e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-10-20 Michael Albinus + + * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no + group id is given. + 2005-10-20 Romain Francoise * net/rcirc.el (with-rcirc-process-buffer): Move above its first user. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index bf3b1427ac2..f50ca07a488 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2686,7 +2686,12 @@ away in the internal cache." ;; Require the previous column to end in a digit. ;; This avoids recognizing `1 may 1997' as a date in the line: ;; -r--r--r-- 1 may 1997 1168 Oct 19 16:49 README - (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s)) + ;; albinus: + ;; Require also the following column to start in a digit. + ;; This avoids recognizing `kfs 10' as a date in the line: + ;; -rw------- 1 kfs 10 May 27 2003 .autorun.lck +;; (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s)) + (concat "[0-9]" s "\\(" western "\\|" japanese "\\)" s "+[0-9]")) "Regular expression to match up to the column before the file name in a directory listing. This regular expression is designed to recognize dates regardless of the language.") -- 2.39.5