From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 14:59:45 +0000 (+0000)
Subject: (url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.
X-Git-Tag: ttn-vms-21-2-B4~4556
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5d4d259396f273f14c30d40daa54d5d67145f43;p=emacs.git

(url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.
---

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 5d1f73e0d5d..1d0bfcf0c48 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -192,13 +192,13 @@ Will not do anything if `url-show-status' is nil."
 						(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