From 033535ded7581d7184e4c1b030cabfcf93bad8fd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 14 Jan 2009 20:47:02 +0000 Subject: [PATCH] (url-cookie-retrieve): Handle null localpart. --- lisp/url/url-cookie.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 5641d3d9624..9a9c4671332 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -223,7 +223,7 @@ telling Microsoft that." (* 1 (string-to-number (aref exp-time 0)))))) (> (- cur-norm exp-norm) 1)))))) -(defun url-cookie-retrieve (host localpart &optional secure) +(defun url-cookie-retrieve (host &optional localpart secure) "Retrieve all the netscape-style cookies for a specified HOST and LOCALPART." (let ((storage (if secure (append url-cookie-secure-storage url-cookie-storage) @@ -232,7 +232,7 @@ telling Microsoft that." (cookies nil) (cur nil) (retval nil) - (localpart-regexp nil)) + (localpart-match nil)) (while storage (setq cur (car storage) storage (cdr storage) @@ -251,9 +251,10 @@ telling Microsoft that." (while cookies (setq cur (car cookies) cookies (cdr cookies) - localpart-regexp (concat "^" (regexp-quote - (url-cookie-localpart cur)))) - (if (and (string-match localpart-regexp localpart) + localpart-match (let ((lp (url-cookie-localpart cur))) + (when lp + (concat "^" (regexp-quote lp))))) + (if (and (equal localpart localpart-match) (not (url-cookie-expired-p cur))) (setq retval (cons cur retval)))))) retval)) -- 2.39.2