Bury the help buffer after sending a bug report

* lisp/mail/emacsbug.el (report-emacs-bug-hook): Bury the help
buffer after sending the bug report (bug#22712).

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 13219a4b444..1c2f11680b6 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -477,7 +477,11 @@ and send the mail again%s."
                (not (yes-or-no-p
                      (format-message "Is `%s' really your email address? "
                                      from)))
-               (error "Please edit the From address and try again"))))))
+               (error "Please edit the From address and try again"))))
+    ;; Bury the help buffer (if it's shown).
+    (when-let ((help (get-buffer "*Bug Help*")))
+      (when (get-buffer-window help)
+        (quit-window nil (get-buffer-window help))))))
 
 
 (provide 'emacsbug)