From f5d4d259396f273f14c30d40daa54d5d67145f43 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 14:59:45 +0000 Subject: [PATCH] (url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist. --- lisp/url/url-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.5