# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1016676591 0
# Node ID 448873845bcc4c383936f88cb9ea6264e6b1fd62
# Parent  e3ec843fefb02a04075121d1ca735a965aaeef3f
(report-emacs-bug-hook): Remove submitter
directions as the last action.

diff -r e3ec843fefb0 -r 448873845bcc lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Wed Mar 20 23:16:48 2002 +0000
+++ b/lisp/mail/emacsbug.el	Thu Mar 21 02:09:51 2002 +0000
@@ -128,7 +128,7 @@
 		    default-enable-multibyte-characters))
     (insert "\n")
     (insert "Please describe exactly what actions triggered the bug\n"
-	    "and the precise symptoms of the bug:\n\n") 
+	    "and the precise symptoms of the bug:\n\n")
     (setq user-point (point))
     (insert "\n\n\n"
 	    "Recent input:\n")
@@ -236,7 +236,15 @@
 please insert the proper e-mail address after \"To: \",
 and send the mail again using \\[mail-send-and-exit].")))
       (error "M-x report-emacs-bug was cancelled, please read *Bug Help* buffer"))
-    ))
+
+    ;; Unclutter
+    (mail-text)
+    (let ((p (point)))
+      (re-search-forward (concat "^In " (emacs-version)))
+      (delete-region p (match-beginning 0)))
+    (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
+                       (point-max) t)
+    (replace-match "Symptoms:\n")))
 
 (provide 'emacsbug)