Mercurial > emacs

changeset 101205:46b81879fc09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-cookie-retrieve): Fix last change.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 15 Jan 2009 13:59:50 +0000
parents d0a97c7f67c7
children 3f0ac2f6febc
files lisp/url/url-cookie.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))