Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

url-cookie: use C locale when formatting expiry times

Browse source 
The expiry time needs to be reconizable by parse-time-string,
which is only guaranteed with the C locale.

* lisp/url/url-cookie.el (url-cookie-parse-file-netscape): Use C
locale for formatted expiry time.
(url-cookie-handle-set-cookie): Likewise.
This commit is contained in:
Andreas Schwab 2026-05-12 15:47:44 +02:00
parent c68f3237be
commit 306f4d1660
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/url/url-cookie.el
View file

@ -103,12 +103,13 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
;; reuse a browser session, so to prevent the
;; cookie from being detected as expired straight
;; away, make it expire a year from now
(expires (format-time-string
"%d %b %Y %T [GMT]"
(let ((s (string-to-number (nth 4 fields))))
(if (and (zerop s) long-session)
(time-add nil (* 365 24 60 60))
s))))
(expires (let ((system-time-locale "C"))
(format-time-string
"%d %b %Y %T [GMT]"
(let ((s (string-to-number (nth 4 fields))))
(if (and (zerop s) long-session)
(time-add nil (* 365 24 60 60))
s)))))
(key (nth 5 fields))
(val (nth 6 fields)))
(incf n)
@ -300,9 +301,10 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
(expires nil))
(if (and max-age (string-match "\\`-?[0-9]+\\'" max-age))
(setq expires (ignore-errors
(format-time-string "%a %b %d %H:%M:%S %Y GMT"
(time-add nil (read max-age))
t)))
(let ((system-time-locale "C"))
(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)