From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Jul 1997 19:08:11 +0000 (+0000)
Subject: (report-emacs-bug): Don't include messages
X-Git-Tag: emacs-20.1~1338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19274e0072db24848b464dff45f66d3666b75e95;p=emacs.git

(report-emacs-bug): Don't include messages
in *Messages* generated by report-emacs-bug itself.
---

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)))