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

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 13219a4b4444bc347e3bfecc6b68aa9807a66c57..1c2f11680b6ac4e96f417902b8a437379c73951e 100644 (file)
--- 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)