[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/url url-cookie.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/url url-cookie.el |
Date: |
Thu, 15 Jan 2009 13:59:50 +0000 |
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))