Commit 9e68869b authored by Richard M. Stallman's avatar Richard M. Stallman

(report-emacs-bug): Use rfc822-goto-eoh.

parent 43c2d6cf
...@@ -84,8 +84,14 @@ Prompts for bug subject. Leaves you in a mail buffer." ...@@ -84,8 +84,14 @@ Prompts for bug subject. Leaves you in a mail buffer."
topic) topic)
;; The rest of this does not execute ;; The rest of this does not execute
;; if the user was asked to confirm and said no. ;; if the user was asked to confirm and said no.
(goto-char (point-min)) (rfc822-goto-eoh)
(re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) (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 (unless report-emacs-bug-no-explanations
;; Insert warnings for novice users. ;; Insert warnings for novice users.
(insert "This bug report will be sent to the Free Software Foundation,\n") (insert "This bug report will be sent to the Free Software Foundation,\n")
...@@ -154,8 +160,6 @@ Type SPC to scroll through this section and its subsections."))) ...@@ -154,8 +160,6 @@ Type SPC to scroll through this section and its subsections.")))
;; Make it less likely people will send empty messages. ;; Make it less likely people will send empty messages.
(make-local-variable 'mail-send-hook) (make-local-variable 'mail-send-hook)
(add-hook 'mail-send-hook 'report-emacs-bug-hook) (add-hook 'mail-send-hook 'report-emacs-bug-hook)
;; Discourage users to write non-English text.
(set-buffer-multibyte nil)
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(skip-chars-backward " \t\n") (skip-chars-backward " \t\n")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment