[Emacs-diffs] emacs/lisp/url url-cookie.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/15 13:59:50

Modified files:
        lisp/url       : url-cookie.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/url/url-cookie.el?cvsroot=emacs&r1=1.30&r2=1.31

Patches:
Index: url-cookie.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-cookie.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- url-cookie.el       14 Jan 2009 20:47:02 -0000      1.30
+++ url-cookie.el       15 Jan 2009 13:59:50 -0000      1.31
@@ -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))