# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819572566 0
# Node ID 777c7668b8b0e40a73a2c9f086423995b2c82896
# Parent  2a2eaca9d6bb829d33540c7056033a75e1743580
(report-emacs-bug): Don't die if *Messages* buf is gone.

diff -r 2a2eaca9d6bb -r 777c7668b8b0 lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Thu Dec 21 18:20:21 1995 +0000
+++ b/lisp/mail/emacsbug.el	Thu Dec 21 19:02:46 1995 +0000
@@ -77,17 +77,19 @@
 	  (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)))