# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 766800855 0
# Node ID 90859715093d225cce046c99801ad41ce7235794
# Parent  f3e2a4344ed64a6c221bf34089fd32230af3db23
(report-emacs-bug): Insert at separator, not at end.

diff -r f3e2a4344ed6 -r 90859715093d lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Tue Apr 19 23:12:49 1994 +0000
+++ b/lisp/mail/emacsbug.el	Wed Apr 20 00:14:15 1994 +0000
@@ -34,6 +34,8 @@
 ;; >> otherwise you can't use this file.  It will only work on the
 ;; >> internet with this address.
 
+(require 'sendmail)
+
 (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu"
   "Address of site maintaining mailing list for GNU Emacs bugs.")
 
@@ -43,8 +45,9 @@
 Prompts for bug subject.  Leaves you in a mail buffer."
   (interactive "sBug Subject: ")
   (mail nil bug-gnu-emacs topic)
-  (goto-char (point-max))
-  (insert "\nIn " (emacs-version) "\n\n")
+  (goto-char (point-min))
+  (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
+  (insert "In " (emacs-version) "\n\n")
   (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
 
 (provide 'emacsbug)