From 6e56e526815b7c045c5693fb92dcf88473457255 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 12 Apr 2004 10:39:09 +0000 Subject: [PATCH] (url-cookie-handle-set-cookie): Replace calls to obsolete `assoc-ignore-case' with calls to `assoc-string'. --- lisp/ChangeLog | 3 +++ lisp/url/url-cookie.el | 10 +++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ff91d256127..2e1d21a5d7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -11,6 +11,9 @@ * help.el (describe-mode): Doc fix. + * url/url-cookie.el (url-cookie-handle-set-cookie): Replace calls + to obsolete `assoc-ignore-case' with calls to `assoc-string'. + 2004-04-12 Stefan Monnier * progmodes/compile.el (compilation-mode-font-lock-keywords): Fix test diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 2a282c7d00a..997c203069c 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -332,14 +332,14 @@ telling Microsoft that.") (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 @@ telling Microsoft that.") (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))) -- 2.39.5