# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1129838899 0
# Node ID eca72eb609b88d9896ce982230a4f71f8925c5a1
# Parent  9cf3996bb8772370546660a09516c9263be3b2e1
* net/ange-ftp.el (ange-ftp-date-regexp): Handle also the case no
group id is given.

diff -r 9cf3996bb877 -r eca72eb609b8 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 20 19:43:44 2005 +0000
+++ b/lisp/ChangeLog	Thu Oct 20 20:08:19 2005 +0000
@@ -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 -r 9cf3996bb877 -r eca72eb609b8 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Thu Oct 20 19:43:44 2005 +0000
+++ b/lisp/net/ange-ftp.el	Thu Oct 20 20:08:19 2005 +0000
@@ -2686,7 +2686,12 @@
 	 ;; 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.")