Mercurial > emacs
changeset 6971:90859715093d
(report-emacs-bug): Insert at separator, not at end.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 20 Apr 1994 00:14:15 +0000 |
| parents | f3e2a4344ed6 |
| children | 2238e97bc571 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)