# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894522860 0
# Node ID 386e14726b59e77f8dbb8b6cdf8bd0fddaf35dbf
# Parent  42b308d86213e76b1e38207c92e3003f48c81626
(report-emacs-bug): Don't display *Bug Help* if
report-emacs-bug-no-explanations.

diff -r 42b308d86213 -r 386e14726b59 lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Thu May 07 06:31:31 1998 +0000
+++ b/lisp/mail/emacsbug.el	Thu May 07 06:34:20 1998 +0000
@@ -146,18 +146,19 @@
     ;; in order to send easily.
     (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
     (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
-    (with-output-to-temp-buffer "*Bug Help*"
-      (if (eq mail-user-agent 'sendmail-user-agent)
-	  (princ (substitute-command-keys
-		  "Type \\[mail-send-and-exit] to send the bug report.\n")))
-      (princ (substitute-command-keys
-	      "Type \\[kill-buffer] RET to cancel (don't send it).\n"))
-      (terpri)
-      (princ (substitute-command-keys
-	      "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section
+    (unless report-emacs-bug-no-explanations
+      (with-output-to-temp-buffer "*Bug Help*"
+	(if (eq mail-user-agent 'sendmail-user-agent)
+	    (princ (substitute-command-keys
+		    "Type \\[mail-send-and-exit] to send the bug report.\n")))
+	(princ (substitute-command-keys
+		"Type \\[kill-buffer] RET to cancel (don't send it).\n"))
+	(terpri)
+	(princ (substitute-command-keys
+		"Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section
 about when and how to write a bug report,
 and what information to supply so that the bug can be fixed.
-Type SPC to scroll through this section and its subsections.")))
+Type SPC to scroll through this section and its subsections."))))
     ;; Make it less likely people will send empty messages.
     (make-local-variable 'mail-send-hook)
     (add-hook 'mail-send-hook 'report-emacs-bug-hook)