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

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index 9a9c46713321817d71a49fb20e8eb58ee5592086..e1945c644e15fd8e1b6cd1670408edf4c2ee5598 100644 (file)
--- 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))