Mercurial > emacs
changeset 21869:0f8ca1599a5a
(report-emacs-bug): Use rfc822-goto-eoh.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Apr 1998 06:32:07 +0000 |
| parents | 14f3c9f7e356 |
| children | 1afd18de6c50 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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")