# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788405078 0
# Node ID d4119f1137f938fa3468f22c459229bbb60caccc
# Parent  1ac3c8fea14a9e733805ebe0c2470495ef3813b2
(timezone-fix-time): For year values < 50, add 2000.

diff -r 1ac3c8fea14a -r d4119f1137f9 lisp/timezone.el
--- a/lisp/timezone.el	Sun Dec 25 22:20:06 1994 +0000
+++ b/lisp/timezone.el	Mon Dec 26 01:24:38 1994 +0000
@@ -291,7 +291,11 @@
 If TIMEZONE is nil, use the local time zone."
   (let* ((date   (timezone-parse-date date))
 	 (year   (string-to-int (aref date 0)))
-	 (year	 (if (< year 100) (+ year 1900) year))
+	 (year	 (cond ((< year 50)
+			(+ year 2000))
+		       ((< year 100)
+			(+ year 1900))
+		       (t year)))
 	 (month  (string-to-int (aref date 1)))
 	 (day    (string-to-int (aref date 2)))
 	 (time   (timezone-parse-time (aref date 3)))