report-emacs-bug mode-name nit, maybe mention features ?

report-emacs-bug mode-name nit, maybe mention features ?

[John Paul Wallington]

`report-emacs-bug' will mention its buffer's `mode-name', the result
of calling `compose-mail'.  Is it better to remember the previous
`mode-name', or to omit that information ?

Also, how about including `features' in its output ?  The information
can be useful, but it isn't always (for example, if the user reports a
bug from an emacs -q --no-site-file).

Index: emacsbug.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/emacsbug.el,v
retrieving revision 1.60
diff -u -r1.60 emacsbug.el
--- emacsbug.el	30 Sep 2003 12:45:44 -0000	1.60
+++ emacsbug.el	1 Oct 2003 16:53:14 -0000
@@ -79,6 +79,7 @@
   ;; If there are four numbers in emacs-version, this is a pretest
   ;; version.
   (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
+	(previous-mode-name mode-name)
 	user-point prompt-beg-point message-end-point)
     (setq message-end-point
 	  (with-current-buffer (get-buffer-create "*Messages*")
@@ -141,13 +142,18 @@
     (insert (format "  default-enable-multibyte-characters: %s\n"
 		    default-enable-multibyte-characters))
     (insert "\n")
-    (insert (format "Major mode: %s\n" mode-name))
+    (insert (format "Major mode: %s\n" previous-mode-name))
     (insert "\n")
     (insert "Minor modes in effect:\n")
     (dolist (mode minor-mode-list)
       (and (boundp mode) (symbol-value mode)
 	   (insert (format "  %s: %s\n" mode (symbol-value mode)))))
     (insert "\n")
+    (insert "Features:\n")
+    (let ((start (point)))
+      (insert (format "  %s" features))
+      (fill-region start (point)))
+    (insert "\n\n")
     (insert "Recent input:\n")
     (let ((before-keys (point)))
       (insert (mapconcat (lambda (key)