Make url-cookie.el be more resistant against bogus data

* lisp/url/url-cookie.el (url-cookie-handle-set-cookie): Don't bug
out on large max-age values (bug#37974).

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index 31fc3e72664260ae7eddd35901e9026c593117e7..740a43fa16fd4bccd73eaa2f5f42135d4c0a454b 100644 (file)
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -304,9 +304,10 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
                         (url-filename url-current-object))))
         (expires nil))
     (if (and max-age (string-match "\\`-?[0-9]+\\'" max-age))
-       (setq expires (format-time-string "%a %b %d %H:%M:%S %Y GMT"
-                                         (time-add nil (read max-age))
-                                         t))
+       (setq expires (ignore-errors
+                        (format-time-string "%a %b %d %H:%M:%S %Y GMT"
+                                           (time-add nil (read max-age))
+                                           t)))
       (setq expires (cdr-safe (assoc-string "expires" args t))))
     (while (consp trusted)
       (if (string-match (car trusted) current-url)