Re: Emacs project mission (was Re: "If you're still seeing problems, please reopen." [

[Stefan Kangas <stefan@marxist.se>]

[-- Attachment #1: Type: text/plain, Size: 549 bytes --]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> The "Recent messages" bit in the bug reports is a bomb just waiting to
> blow up.  At some point somebody will be doing some mining of the bug
> repo for "interesting" messages and do a write-up of how horribly lax
> the GNU project it with people's privacy.

I agree.  We should not automatically include potentially sensitive
user data in bug reports.  We can ask for it in the (presumably rare)
cases when we do need to see those messages.

How about the attached patch?

Best regards,
Stefan Kangas

[-- Attachment #2: 0001-Don-t-include-section-Recent-messages-in-bug-reports.patch --]
[-- Type: text/x-patch, Size: 1436 bytes --]

From 0a7c40cc6f126e8aa57c5d78a9ae595d5dc57445 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 28 Nov 2019 10:30:30 +0100
Subject: [PATCH] Don't include section "Recent messages" in bug reports

* lisp/mail/emacsbug.el (report-emacs-bug): Don't include "Recent
messages" since it has privacy implications.
Problem reported by Lars Ingebrigtsen in:
https://lists.gnu.org/archive/html/emacs-devel/2019-11/msg01099.html
---
 lisp/mail/emacsbug.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 1c2f11680b..61840be95c 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -320,18 +320,6 @@ report-emacs-bug
     (let ((os (ignore-errors (report-emacs-bug--os-description))))
       (if (stringp os)
           (insert "System Description: " os "\n\n")))
-    (let ((message-buf (get-buffer "*Messages*")))
-      (if message-buf
-	  (let (beg-pos
-		(end-pos message-end-point))
-	    (with-current-buffer message-buf
-	      (goto-char end-pos)
-	      (forward-line -10)
-	      (setq beg-pos (point)))
-            (terpri (current-buffer) t)
-	    (insert "Recent messages:\n")
-	    (insert-buffer-substring message-buf beg-pos end-pos))))
-    (insert "\n")
     (when (and system-configuration-options
 	       (not (equal system-configuration-options "")))
       (insert "Configured using:\n 'configure "
-- 
2.20.1