192 |
(nth 1 (current-time-zone)) |
(nth 1 (current-time-zone)) |
193 |
"GMT")) |
"GMT")) |
194 |
(parsed (timezone-parse-date gmt)) |
(parsed (timezone-parse-date gmt)) |
195 |
(day (cdr-safe (assoc (substring raw 0 3) weekday-alist))) |
(day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist))) |
196 |
(year nil) |
(year nil) |
197 |
(month (car |
(month (car |
198 |
(rassoc |
(rassoc |
199 |
(string-to-int (aref parsed 1)) monthabbrev-alist))) |
(string-to-int (aref parsed 1)) url-monthabbrev-alist))) |
200 |
) |
) |
201 |
(setq day (or (car-safe (rassoc day weekday-alist)) |
(setq day (or (car-safe (rassoc day url-weekday-alist)) |
202 |
(substring raw 0 3)) |
(substring raw 0 3)) |
203 |
year (aref parsed 0)) |
year (aref parsed 0)) |
204 |
;; This is needed for plexus servers, or the server will hang trying to |
;; This is needed for plexus servers, or the server will hang trying to |