# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 805123547 0
# Node ID 3f4cd64a473098eb965cb51351edde0c80547cd1
# Parent  cca1dbc550dd73f95aefa4cb5202314096a58968
(timezone-parse-date): Ignore text properties.

diff -r cca1dbc550dd -r 3f4cd64a4730 lisp/timezone.el
--- a/lisp/timezone.el	Fri Jul 07 13:24:31 1995 +0000
+++ b/lisp/timezone.el	Fri Jul 07 13:25:47 1995 +0000
@@ -130,6 +130,12 @@
  (5) 22-AUG-1993 10:59:12.82
  (6) Thu, 11 Apr 16:17:12 91 [MET]
  (7) Mon, 6  Jul 16:47:20 T 1992 [MET]"
+  ;; Get rid of any text properties.
+  (and (stringp date)
+       (or (text-properties-at 0 date)
+	   (next-property-change 0 date))
+       (setq date (copy-sequence date))
+       (set-text-properties 0 (length date) nil date))
   (let ((date (or date ""))
 	(year nil)
 	(month nil)
@@ -176,17 +182,13 @@
 	  ;; It is now Dec 1992.  8 years before the end of the World.
 	  (if (< (length year) 4)
 	      (setq year (concat "19" (substring year -2 nil))))
-	  (setq month
-		(int-to-string
-		 (cdr
-		  (assoc
-		   (upcase
-		    ;; Don't use `match-end' in order to take 3
-		    ;; letters from the beginning.
-		    (substring date
-			       (match-beginning month)
-			       (+ (match-beginning month) 3)))
-		   timezone-months-assoc))))
+	  (let ((string (substring date
+				   (match-beginning month)
+				   (+ (match-beginning month) 3))))
+	    (setq month
+		  (int-to-string
+		   (cdr (assoc (upcase string) timezone-months-assoc)))))
+
 	  (setq day
 		(substring date (match-beginning day) (match-end day)))
 	  (setq time