From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 9 Oct 2019 05:31:24 +0000 (+0200)
Subject: Bury the help buffer after sending a bug report
X-Git-Tag: emacs-27.0.90~1202
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fef6e68f779b12f4f639ca51896f7a950f49237;p=emacs.git

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