# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097938785 0
# Node ID 6052b6df37c12e5311a6dcde54ffdcc39b4275b2
# Parent  44bc5df842b72f05fcd6a90c244db4a3454823e6
(url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.

diff -r 44bc5df842b7 -r 6052b6df37c1 lisp/url/url-util.el
--- a/lisp/url/url-util.el	Sat Oct 16 14:58:38 2004 +0000
+++ b/lisp/url/url-util.el	Sat Oct 16 14:59:45 2004 +0000
@@ -192,13 +192,13 @@
 						(nth 1 (current-time-zone))
 						"GMT"))
 	 (parsed (timezone-parse-date gmt))
-	 (day (cdr-safe (assoc (substring raw 0 3) weekday-alist)))
+	 (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))
 	 (year nil)
 	 (month (car
 		 (rassoc
-		  (string-to-int (aref parsed 1)) monthabbrev-alist)))
+		  (string-to-int (aref parsed 1)) url-monthabbrev-alist)))
 	 )
-    (setq day (or (car-safe (rassoc day weekday-alist))
+    (setq day (or (car-safe (rassoc day url-weekday-alist))
 		  (substring raw 0 3))
 	  year (aref parsed 0))
     ;; This is needed for plexus servers, or the server will hang trying to