# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232027990 0
# Node ID 46b81879fc09a19910dc0d5160bf99f274d48918
# Parent  d0a97c7f67c7c93d7edee83a59191fa6f305bb43
(url-cookie-retrieve): Fix last change.

diff -r d0a97c7f67c7 -r 46b81879fc09 lisp/url/url-cookie.el
--- a/lisp/url/url-cookie.el	Thu Jan 15 13:59:43 2009 +0000
+++ b/lisp/url/url-cookie.el	Thu Jan 15 13:59:50 2009 +0000
@@ -251,10 +251,12 @@
 	  (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))