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

7feadb90 · Chong Yidong · 68fe704b · 7feadb90
Commit 7feadb90 authored Jan 15, 2009 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 4 deletions

lisp/url/url-cookie.el lisp/url/url-cookie.el +6 -4

No files found.
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -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))