mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-25 15:52:01 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/url/url-cookie.el (url-cookie-expired-p): Tweak previous change.

Browse source
This commit is contained in:
Glenn Morris 2010-09-08 22:38:43 -07:00
parent 966bb6c005
commit c4ae64d106
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/url/ChangeLog
View file

@ -1,3 +1,7 @@
2010-09-09 Glenn Morris <rgm@gnu.org>
* url-cookie.el (url-cookie-expired-p): Tweak previous change.
2010-09-09 shawn boles <shawn.boles@gmail.com> (tiny change)
* url-cookie.el (url-cookie-expired-p): Simplify and fix. (Bug#6957)

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

@ -1,7 +1,7 @@
;;; url-cookie.el --- Netscape Cookie support
;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1997, 1998, 1999, 2004, 2005, 2006, 2007, 2008,
;; 2009, 2010 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
@ -193,12 +193,9 @@ telling Microsoft that."
(setq url-cookie-storage (list (list domain tmp))))))))
(defun url-cookie-expired-p (cookie)
"Returns true if COOKIE is expired.
If COOKIE has an expiration date it is converted to seconds, adjusted to the client timezone and then compared against (float-time)."
(let* ((exp (url-cookie-expires cookie))
(exp-time (and exp (float-time (date-to-time exp)))))
(if (not exp) nil (> (float-time) exp-time)))
)
"Return non-nil if COOKIE is expired."
(let ((exp (url-cookie-expires cookie)))
(and exp (> (float-time) (float-time (date-to-time exp))))))
(defun url-cookie-retrieve (host &optional localpart secure)
"Retrieve all the netscape-style cookies for a specified HOST and LOCALPART."