* url-cookie.el (url-cookie-retrieve): Handle null LOCALPART (Bug#7543).

Suggested by Lennart Borgman.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 90533fa297c2e56a2a96999adcfb1c9746f48bbf..8fdd340da6c7cd43c6836a9c5581fc9c58fec6bc 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-04  Chong Yidong  <cyd@stupidchicken.com>
+
+       * url-cookie.el (url-cookie-retrieve): Handle null LOCALPART.
+       Suggested by Lennart Borgman (Bug#7543).
+
 2010-09-18  Glenn Morris  <rgm@gnu.org>
 
        * url-cache.el (url-is-cached): Doc fix.

diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index 2067f0972249fe662b8ca21f77a6af07c2e609eb..dc7566c6d5e0b98c5d4eab94fb6030f86300749c 100644 (file)
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -198,7 +198,7 @@ telling Microsoft that."
     (and exp (> (float-time) (float-time (date-to-time exp))))))
 
 (defun url-cookie-retrieve (host &optional localpart secure)
-  "Retrieve all the netscape-style cookies for a specified HOST and LOCALPART."
+  "Retrieve all cookies for a specified HOST and LOCALPART."
   (let ((storage (if secure
                     (append url-cookie-secure-storage url-cookie-storage)
                   url-cookie-storage))
@@ -226,7 +226,8 @@ telling Microsoft that."
            (setq cur (car cookies)
                  cookies (cdr cookies)
                  localpart-match (url-cookie-localpart cur))
-           (if (and (if (stringp localpart-match)
+           (if (and (if (and (stringp localpart-match)
+                             (stringp localpart))
                         (string-match (concat "^" (regexp-quote
                                                    localpart-match))
                                       localpart)