From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 20 Apr 1994 00:14:15 +0000 (+0000)
Subject: (report-emacs-bug): Insert at separator, not at end.
X-Git-Tag: emacs-19.34~8882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9f9cd92969db9ac39bb97d023028f9793e26b3b;p=emacs.git

(report-emacs-bug): Insert at separator, not at end.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 03ae176562e..fa3f588180d 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -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)