# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 878945570 0
# Node ID 9823d1d05083efa7b9238c37edb8cb97dfd38b5a
# Parent  854a9bdef74fd15c82462287fa1906662008d260
(ange-ftp-date-regexp): Handle Japanese-format dates.
In Western dates, accept month name and day-of-month in either order.

diff -r 854a9bdef74f -r 9823d1d05083 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Fri Nov 07 23:32:50 1997 +0000
+++ b/lisp/ange-ftp.el	Fri Nov 07 23:32:50 1997 +0000
@@ -2510,9 +2510,16 @@
 ;;;; ------------------------------------------------------------
 
 (defconst ange-ftp-date-regexp
-  " [A-Za-z\xa0-\xff][A-Za-z\xa0-\xff][A-Za-z\xa0-\xff] [0-3 ][0-9] "
+  (let* ((l "[A-Za-z\xa0-\xff]")
+	 (k "[^\x00-\xff]")
+	 (s " ")
+	 (mm "[ 0-1][0-9]")
+	 (dd "[ 0-3][0-9]")
+	 (western (concat "\\(" l l l s dd "\\|" dd s l l l "\\)"))
+	 (japanese (concat mm k s dd k)))
+    (concat s "\\(" western "\\|" japanese "\\)" s))
   "Regular expression to recognize the date in a directory listing.
-This regular expression is designed to recognize month names
+This regular expression is designed to recognize dates
 regardless of the language.")
 
 (defvar ange-ftp-add-file-entry-alist nil