changeset 57513:6052b6df37c1

(url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Oct 2004 14:59:45 +0000
parents 44bc5df842b7
children c386726e02a5
files lisp/url/url-util.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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