diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-01-15 13:59:50 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-01-15 13:59:50 +0000 |
| commit | 7feadb909b3011e9e3dd728ff0a847c78a01a755 (patch) | |
| tree | 9aae3bf822fac1f1ea7a54cbe07c0490ca228e08 /lisp/url | |
| parent | 68fe704b637b257e9f5a62acde9787b5a0648d6a (diff) | |
| download | emacs-7feadb909b3011e9e3dd728ff0a847c78a01a755.tar.gz | |
(url-cookie-retrieve): Fix last change.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-cookie.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 9a9c4671332..e1945c644e1 100644 --- 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)) |