(url-cookie-handle-set-cookie): Replace calls to obsolete

`assoc-ignore-case' with calls to `assoc-string'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff91d2561275ba38ce4e87007a5af524c0e0b656..2e1d21a5d7e2d59f1bc68941690f4e661791f3bf 100644 (file)
--- 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  <monnier@iro.umontreal.ca>
 
        * 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 2a282c7d00a0f4c55b905b7d1d68a98b96917e19..997c203069c146e924d547ee4513a653af21ac91 100644 (file)
--- 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)))