* parse-time.el (parse-time-rules): Allow 100-110 to be

2000-2010.

* time-date.el (date-to-time): Don't use timezone.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1e0c32..c37d927 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-01-06 13:41:11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * parse-time.el (parse-time-rules): Allow 100-110 to be
+       2000-2010. 
+
+       * time-date.el (date-to-time): Don't use timezone.
+
 2000-01-06  Dave Love  <fx@gnu.org>
 
        * time-date.el: Add keywords.

diff --git a/lisp/parse-time.el b/lisp/parse-time.el
index 11e4682..9cc4ce2 100644 (file)
--- a/lisp/parse-time.el
+++ b/lisp/parse-time.el
@@ -167,7 +167,7 @@
                        (= (length elt) 7)
                        (= (aref elt 1) ?:)))
      [0 1] [2 4] [5 7])
-    ((5) (50 99) ,#'(lambda () (+ 1900 elt)))
+    ((5) (50 110) ,#'(lambda () (+ 1900 elt)))
     ((5) (0 49) ,#'(lambda () (+ 2000 elt))))
   "(slots predicate extractor...)")
 

diff --git a/lisp/time-date.el b/lisp/time-date.el
index d03441e..06f5ad1 100644 (file)
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -28,16 +28,11 @@
 
 (require 'parse-time)
 
-(autoload 'timezone-make-date-arpa-standard "timezone")
-
 ;;;###autoload
 (defun date-to-time (date)
   "Convert DATE into time."
   (condition-case ()
-      ;; `timezone-make-date-arpa-standard' makes this more robust,
-      ;; e.g. against the crop of year 100 dates in Jan 2000.
-      (apply 'encode-time (parse-time-string
-                          (timezone-make-date-arpa-standard date)))
+      (apply 'encode-time (parse-time-string date))
     (error (error "Invalid date: %s" date))))
 
 (defun time-to-seconds (time)