From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#22720: 25.0.91; url/eww: add function to delete all cookies Date: Mon, 22 Feb 2016 13:52:21 +0100 Message-ID: <87lh6caovu.fsf@web.de> References: <87h9h7xv9n.fsf@web.de> <87k2m18dd9.fsf@gnus.org> <87y4agdiq4.fsf@web.de> <87k2lyfvw8.fsf@gnus.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1456145603 2401 80.91.229.3 (22 Feb 2016 12:53:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 22 Feb 2016 12:53:23 +0000 (UTC) Cc: 22720@debbugs.gnu.org To: Lars Ingebrigtsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Feb 22 13:53:13 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aXpzE-0006sY-Rq for geb-bug-gnu-emacs@m.gmane.org; Mon, 22 Feb 2016 13:53:12 +0100 Original-Received: from localhost ([::1]:48823 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aXpzE-0001Hw-Ag for geb-bug-gnu-emacs@m.gmane.org; Mon, 22 Feb 2016 07:53:12 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48616) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aXpz8-0001Ek-Q6 for bug-gnu-emacs@gnu.org; Mon, 22 Feb 2016 07:53:08 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aXpz4-0006j1-Pb for bug-gnu-emacs@gnu.org; Mon, 22 Feb 2016 07:53:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:39789) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aXpz4-0006ix-Mi for bug-gnu-emacs@gnu.org; Mon, 22 Feb 2016 07:53:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84) (envelope-from ) id 1aXpz4-0007mT-H0 for bug-gnu-emacs@gnu.org; Mon, 22 Feb 2016 07:53:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 22 Feb 2016 12:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 22720 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: fixed Original-Received: via spool by 22720-submit@debbugs.gnu.org id=B22720.145614555929879 (code B ref 22720); Mon, 22 Feb 2016 12:53:02 +0000 Original-Received: (at 22720) by debbugs.gnu.org; 22 Feb 2016 12:52:39 +0000 Original-Received: from localhost ([127.0.0.1]:36916 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aXpyd-0007ln-V3 for submit@debbugs.gnu.org; Mon, 22 Feb 2016 07:52:39 -0500 Original-Received: from mout.web.de ([212.227.17.12]:53199) by debbugs.gnu.org with esmtp (Exim 4.84) (envelope-from ) id 1aXpyY-0007lU-JG for 22720@debbugs.gnu.org; Mon, 22 Feb 2016 07:52:34 -0500 Original-Received: from drachen.dragon ([92.74.189.190]) by smtp.web.de (mrweb103) with ESMTPSA (Nemesis) id 0MI63m-1aWC532Jqw-003sht; Mon, 22 Feb 2016 13:52:23 +0100 In-Reply-To: <87k2lyfvw8.fsf@gnus.org> (Lars Ingebrigtsen's message of "Sun, 21 Feb 2016 16:57:27 +1100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.91 (gnu/linux) X-Provags-ID: V03:K0:lmFKcWHv681Rbr3r4w/brH24ItO3Ig68or5CNqzM6rCLua57MrS 1BD6e6njDGdRJ/PpnQHFIGx+H6purt8ZuD6Mlqu/aDjsyAfr4n7kFWMGp6ulEK6wYxI6tsB 2I1fh1NZdQH+50d+Y9X2Xgn/lDgD8g4Mm8jEoNsqRY5BN5qVQCQLy9g6BiH8NbfGc/cjCFi C0C1Rys+6j82NHP2A0rGw== X-UI-Out-Filterresults: notjunk:1;V01:K0:pAKlR5PaIMM=:fzgTpt4QnPSmTs88uvni6O oayimPCDdA0FBos483vKOdvtE/uJgDGDqrUkS9hZNf/K+V3RCcG3IVpQZLzsiiaYsrIYmJtNa chWrjVwF0NPnyXYe5XnP1BbIA0vH68EoAtfdGBh2OhPcmsp3uMt235mW2xpIvY8MioDmhB3Q1 3T4CmiT7JJ0TvWKgiBkrAF5iwnUtnhELGDAx4QHJ0/BYbfDgNQEZfmRdWXNOZleyPMQuwEcLJ /o68t5DAXbSs+l5sTDBhv0Ok1to8Y+xPM7P0gQ/arHNZvAUk+7Gh8xHLRdYQgIvD0IwQnjxAp a0Vd/E/Q4Us41WeZDr0c6e1PXKOLf07wzOOdLE6Gg2eh7p49e8M3ANOpP3R/KRxgN4vyTWMo0 7rVpGrPoaTOkvEB4ea6LkxqrM7kAMvQiCZKEtH1s7Up+Buh9f8l2acRDs/1Jyo5gHvepC3SD7 iRrtOwqQDicyKIlbtCgTAaFociqx+QNVoEpWZmTYZRgWMFFZmd0hHmhOozV8PVfz8hy7NuzIi Ik59ystwptQotO5OxCgcBXIpUALa64ZckZocQ/8W/tckpMGfDacJw5BI+lOyNJPE7FlAeoSKD sVxtayyMkLuXvpWyF5oqInv2cLFZRLv1f2073iV96lVz6JyaZAbH4Xcuxu3xbDCbPA3vhf9QC ETLGmIMFWm41sEDU4OjLFt2h2Glc99b9EDpGd6d3H8fD7Pi/HQb/mZZx3hAs7XU1o9XJcsoIJ fVbqJMDTahO3gqsLKaUqypSsK++904SrZTB0jzodfC+QdHWJFgv9zjQ/6mG4fYNze98y7EaH X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:113450 Archived-At: Lars Ingebrigtsen writes: > Oh, I see. I've now added this to the trunk: > `url-cookie-delete-cookies'. Thanks! I guess it would also make sense to be able to keep cookies with matching domain name. I tweaked your defun a bit: #+begin_src emacs-lisp (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, delete all cookies where the domain does not match REGEXP." (dolist (variable '(url-cookie-secure-storage url-cookie-storage)) (if (not regexp) (set variable nil) (let ((cookies (symbol-value variable)) (pred (if keep (lambda (cookie) (not (string-match-p regexp (car cookie)))) (lambda (cookie) (string-match-p regexp (car cookie)))))) (dolist (elem cookies) (when (funcall pred elem) (setq cookies (delq elem cookies)))) (set variable cookies)))) (setq url-cookies-changed-since-last-save t) (url-cookie-write-file)) #+end_src WDYT? Regards, Michael.