[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#39185: [PATCH] Don't include section "Recent messages" in bug report

From: Stefan Kangas
Subject: bug#39185: [PATCH] Don't include section "Recent messages" in bug reports
Date: Sun, 19 Jan 2020 00:58:18 +0100

Does anyone object to installing the below patch on master?

See here for background:

Best regards,
Stefan Kangas

>From 74d5b879b42a7f3084910eda74b2b733ebe8984a Mon Sep 17 00:00:00 2001
From: Stefan Kangas <address@hidden>
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:
 lisp/mail/emacsbug.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index fea7619b50..e4534746dd 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 "

reply via email to

[Prev in Thread] Current Thread [Next in Thread]