Function: url-cookie-delete-cookies

url-cookie-delete-cookies is a byte-compiled function defined in url-cookie.el.gz.

Signature

(url-cookie-delete-cookies &optional REGEXP KEEP)

Documentation

Delete all cookies from the cookie store where the domain matches REGEXP.

If REGEXP is nil, all cookies are deleted. If KEEP is non-nil, instead delete all cookies that do not match REGEXP.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-cookie.el.gz
(defun url-cookie-delete-cookies (&optional regexp keep)
  "Delete all cookies from the cookie store where the domain matches REGEXP.
If REGEXP is nil, all cookies are deleted.  If KEEP is non-nil,
instead delete all cookies that do not match REGEXP."
  (dolist (variable '(url-cookie-secure-storage url-cookie-storage))
    (let ((cookies (symbol-value variable)))
      (dolist (elem cookies)
        (when (or (and (null keep)
                       (or (null regexp)
                           (string-match regexp (car elem))))
                  (and keep
                       regexp
                       (not (string-match regexp (car elem)))))
          (setq cookies (delq elem cookies))))
      (set variable cookies)))
  (setq url-cookies-changed-since-last-save t)
  (url-cookie-write-file))