Commit dd713b75 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(timezone-parse-date): Treat unknown month name

like any other unrecognized format.
parent 7aec540f
......@@ -200,11 +200,14 @@ Understands the following styles:
(substring date
(match-beginning month)
(+ (match-beginning month) 2))
(let ((string (substring date
(match-beginning month)
(+ (match-beginning month) 3))))
(int-to-string
(cdr (assoc (upcase string) timezone-months-assoc))))))
(let* ((string (substring date
(match-beginning month)
(+ (match-beginning month) 3)))
(monthnum
(cdr (assoc (upcase string) timezone-months-assoc))))
(if monthnum
(int-to-string monthnum)
nil))))
(setq day
(substring date (match-beginning day) (match-end day)))
(setq time
......@@ -213,7 +216,7 @@ Understands the following styles:
(setq zone
(substring date (match-beginning zone) (match-end zone))))
;; Return a vector.
(if year
(if (and year month)
(vector year month day time zone)
(vector "0" "0" "0" "0" nil))
))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment