Commit 7feadb90 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 68fe704b
......@@ -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
(equal localpart localpart-match))
(not (url-cookie-expired-p cur)))
(setq retval (cons cur retval))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment