mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(url-cookie-retrieve): Fix last change.

Browse Source
This commit is contained in:
Chong Yidong 2009-01-15 13:59:50 +00:00
parent 68fe704b63
commit 7feadb909b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/url/url-cookie.el
View File

@ -251,10 +251,12 @@ telling Microsoft that."
(while cookies
(setq cur (car cookies)
cookies (cdr cookies)
localpart-match (let ((lp (url-cookie-localpart cur)))
(when lp
(concat "^" (regexp-quote lp)))))
(if (and (equal localpart localpart-match)
localpart-match (url-cookie-localpart cur))
(if (and (if (stringp localpart-match)
(string-match (concat "^" (regexp-quote
localpart-match))
localpart)
(equal localpart localpart-match))
(not (url-cookie-expired-p cur)))
(setq retval (cons cur retval))))))
retval))