From 19274e0072db24848b464dff45f66d3666b75e95 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Jul 1997 19:08:11 +0000 Subject: [PATCH] (report-emacs-bug): Don't include messages in *Messages* generated by report-emacs-bug itself. --- lisp/mail/emacsbug.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 928d8385129..b2497478d02 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -54,7 +54,10 @@ Prompts for bug subject. Leaves you in a mail buffer." ;; the bug subject string is read. (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) (condition-case nil - (let (user-point) + (let (user-point message-end-point) + (setq message-end-point + (with-current-buffer (get-buffer "*Messages*") + (point-max-marker))) (compose-mail (if (string-match "\\..*\\..*\\." emacs-version) ;; If there are four numbers in emacs-version, ;; this is a pretest version. @@ -93,17 +96,14 @@ Prompts for bug subject. Leaves you in a mail buffer." (insert "\n")))) (let ((message-buf (get-buffer "*Messages*"))) (if message-buf - (progn + (let (beg-pos + (end-pos message-end-point)) + (with-current-buffer message-buf + (goto-char end-pos) + (forward-line -10) + (setq beg-pos (point))) (insert "\n\nRecent messages:\n") - (insert-buffer-substring message-buf - (save-excursion - (set-buffer message-buf) - (goto-char (point-max)) - (forward-line -10) - (point)) - (save-excursion - (set-buffer message-buf) - (point-max)))))) + (insert-buffer-substring message-buf beg-pos end-pos)))) ;; This is so the user has to type something ;; in order to send easily. (use-local-map (nconc (make-sparse-keymap) (current-local-map))) -- 2.39.2