From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 21 Dec 1995 19:02:46 +0000 (+0000)
Subject: (report-emacs-bug): Don't die if *Messages* buf is gone.
X-Git-Tag: emacs-19.34~2044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7f6d8154090881bc81e7af419426e382350091b;p=emacs.git

(report-emacs-bug): Don't die if *Messages* buf is gone.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index fe6b52f7cc0..9d5afd601a2 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -77,17 +77,19 @@ Prompts for bug subject.  Leaves you in a mail buffer."
 	  (while (progn (move-to-column 50) (not (eobp)))
 	    (search-forward " " nil t)
 	    (insert "\n")))
-	(insert "\n\n")
-	(insert "Recent messages:\n")
-	(insert-buffer-substring "*Messages*"
-				 (save-excursion
-				   (set-buffer "*Messages*")
-				   (goto-char (point-max))
-				   (forward-line -10)
-				   (point))
-				 (save-excursion
-				   (set-buffer "*Messages*")
-				   (point-max)))
+	(let ((message-buf (get-buffer "*Messages*")))
+	  (if message-buf
+	      (progn
+		(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))))))
 	;; This is so the user has to type something
 	;; in order to send easily.
 	(use-local-map (nconc (make-sparse-keymap) (current-local-map)))