Mercurial > emacs
changeset 54817:daf716c39a7f
(url-cookie-handle-set-cookie): Replace calls to obsolete
`assoc-ignore-case' with calls to `assoc-string'.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 12 Apr 2004 10:37:27 +0000 |
| parents | 5cf37cfc7515 |
| children | 50e0b2d92ba3 |
| files | lisp/url/url-cookie.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-cookie.el Mon Apr 12 10:25:33 2004 +0000 +++ b/lisp/url/url-cookie.el Mon Apr 12 10:37:27 2004 +0000 @@ -332,14 +332,14 @@ (setq url-cookies-changed-since-last-save t) (let* ((args (url-parse-args str t)) (case-fold-search t) - (secure (and (assoc-ignore-case "secure" args) t)) - (domain (or (cdr-safe (assoc-ignore-case "domain" args)) + (secure (and (assoc-string "secure" args t) t)) + (domain (or (cdr-safe (assoc-string "domain" args t)) (url-host url-current-object))) (current-url (url-view-url t)) (trusted url-cookie-trusted-urls) (untrusted url-cookie-untrusted-urls) - (expires (cdr-safe (assoc-ignore-case "expires" args))) - (path (or (cdr-safe (assoc-ignore-case "path" args)) + (expires (cdr-safe (assoc-string "expires" args t))) + (path (or (cdr-safe (assoc-string "path" args t)) (file-name-directory (url-filename url-current-object)))) (rest nil)) @@ -377,7 +377,7 @@ (match-string 3 expires) " " ; year (match-string 4 expires) ".00 " ; hour:minutes:seconds (match-string 6 expires)))) ":" ; timezone - + (while (consp trusted) (if (string-match (car trusted) current-url) (setq trusted (- (match-end 0) (match-beginning 0)))