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).

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index 31fc3e72664..740a43fa16f 100644
--- 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)