diff options
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 6 |
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) |