From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/74543 Path: news.gmane.org!not-for-mail From: =?utf-8?Q?=C5=81ukasz?= Stelmach Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] private message id Date: Mon, 29 Nov 2010 22:37:25 +0100 Message-ID: <87fwujreui.fsf%lukasz.stelmach@iem.pw.edu.pl> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: dough.gmane.org 1291066669 23382 80.91.229.12 (29 Nov 2010 21:37:49 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 29 Nov 2010 21:37:49 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M22902@lists.math.uh.edu Mon Nov 29 22:37:44 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PNBPq-0000Xl-Bn for ding-account@gmane.org; Mon, 29 Nov 2010 22:37:42 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PNBPp-0002ZO-EE; Mon, 29 Nov 2010 15:37:41 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PNBPo-0002Z8-0y for ding@lists.math.uh.edu; Mon, 29 Nov 2010 15:37:40 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PNBPl-0005gU-Ub for ding@lists.math.uh.edu; Mon, 29 Nov 2010 15:37:39 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1PNBPl-0001Tg-00 for ; Mon, 29 Nov 2010 22:37:37 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PNBPk-0000U7-8X for ding@gnus.org; Mon, 29 Nov 2010 22:37:36 +0100 Original-Received: from 87-205-242-8.adsl.inetia.pl ([87.205.242.8]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 29 Nov 2010 22:37:36 +0100 Original-Received: from lukasz.stelmach by 87-205-242-8.adsl.inetia.pl with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 29 Nov 2010 22:37:36 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 52 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 87-205-242-8.adsl.inetia.pl User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) Cancel-Lock: sha1:fsfI+VTQaexyulwsnvd5fA/T/js= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:74543 Archived-At: Hi. I'd like to share an idea, and a patch that implemnts it, to make Message-ID slightly worse source of data tracking down an individual who uses multiple accounts on one machine. All message get the same fqdn part so it is quite obvious they are sent from the same machine. I know, there are Received headers but they are not as easy to parse, and may be a lot less accurate behind a NAT. I propose a Message-ID consiting of unique-id%e-mail-address grabbed from the From header. Take a look at the ID of this message. --8<---------------cut here---------------start------------->8--- diff --git a/lisp/message.el b/lisp/message.el index bff11b2..9fc3eb6 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -5425,6 +5425,13 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'." (setf (nth 3 cur) nday) (message-make-date (apply 'encode-time cur)))) +(defcustom message-make-private-message-id t + "Make Message-ID more privacy-aware by replacing the host +partname with the senders e-mail addres. It makes a bit harder to +associate message sent from different accounts." + :group 'message-headers + :type 'boolean) + (defun message-make-message-id () "Make a unique Message-ID." (concat "<" (message-unique-id) @@ -5443,7 +5450,13 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'." (and psupersedes (string-match "_-_@" psupersedes))) "_-_" "")) - "@" (message-make-fqdn) ">")) + (let ((pfrom (save-excursion (message-fetch-field "from")))) + (if (and message-make-private-message-id + pfrom) + (concat "%" + (cadr (mail-extract-address-components pfrom))) + (concat "@" (message-make-fqdn)))) + ">")) (defvar message-unique-id-char nil) --8<---------------cut here---------------end--------------->8--- -- Miłego dnia, Łukasz Stelmach