(ange-ftp-date-regexp): Make it work for

LANG=de_DE.iso88591 on HPUX 11.0.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 43bdd2e306a2981ce2c114f6c8fd28f244541a2f..e8f9b35511e1a27980e1b70d85cfb17146bad983 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -2529,13 +2529,17 @@ away in the internal cache."
   (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
         ;; In some locales, month abbreviations are as short as 2 letters,
         ;; and they can be padded on the right with spaces.
-        (month (concat l l "+ *"))
+        ;; weiand: changed: month ends with . or , or .,
+;;old   (month (concat l l "+ *"))
+        (month (concat l l "+[.]?,? *"))
         ;; Recognize any non-ASCII character.  
         ;; The purpose is to match a Kanji character.
         (k "[^\0-\177]")
         (s " ")
         (mm "[ 0-1][0-9]")
-        (dd "[ 0-3][0-9]")
+        ;; weiand: changed: day ends with .
+;;old   (dd "[ 0-3][0-9]")
+        (dd "[ 0-3][0-9][.]?")
         (western (concat "\\(" month s dd "\\|" dd s month "\\)"))
         (japanese (concat mm k s dd k)))
         ;; Require the previous column to end in a digit.