# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893917927 0
# Node ID 0f8ca1599a5a874b212e776221b01c074de39fad
# Parent  14f3c9f7e356fe72a24d51c548043183866d4ba0
(report-emacs-bug): Use rfc822-goto-eoh.

diff -r 14f3c9f7e356 -r 0f8ca1599a5a lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Thu Apr 30 06:30:27 1998 +0000
+++ b/lisp/mail/emacsbug.el	Thu Apr 30 06:32:07 1998 +0000
@@ -84,8 +84,14 @@
 		  topic)
     ;; The rest of this does not execute
     ;; if the user was asked to confirm and said no.
-    (goto-char (point-min))
-    (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
+    (rfc822-goto-eoh)
+    (forward-line 1)
+
+    (let ((signature (buffer-substring (point) (point-max))))
+      ;; Discourage users to write non-English text.
+      (set-buffer-multibyte nil)
+      (delete-region (point) (point-max))
+      (insert signature))
     (unless report-emacs-bug-no-explanations
       ;; Insert warnings for novice users.
       (insert "This bug report will be sent to the Free Software Foundation,\n")
@@ -154,8 +160,6 @@
     ;; Make it less likely people will send empty messages.
     (make-local-variable 'mail-send-hook)
     (add-hook 'mail-send-hook 'report-emacs-bug-hook)
-    ;; Discourage users to write non-English text.
-    (set-buffer-multibyte nil)
     (save-excursion
       (goto-char (point-max))
       (skip-chars-backward " \t\n")