* net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no

group id is given.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c427ce64966a20d117017e7e9d9fb9657c98de37..00c80f4e65eaa4e2a438229c027fab9ef10d746d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-20  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no
+       group id is given.
+
 2005-10-20  Romain Francoise  <romain@orebokech.com>
 
        * 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 bf3b1427ac21ce4302f8391d4b2fae83023c1b6d..f50ca07a4889f5e96f6df4c1d6f36e328e4aaced 100644 (file)
--- 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.")