diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-30 02:23:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-30 02:23:49 +0000 |
| commit | 74d51fb8409ce866cd6f8622f8d157253ff3b8ea (patch) | |
| tree | cba765d86e18786f1144bfec2eb35dcea71adcda /lisp/mail/emacsbug.el | |
| parent | 365d2503ce8ab1d3f9cd813d14631c38e81bba06 (diff) | |
| download | emacs-74d51fb8409ce866cd6f8622f8d157253ff3b8ea.tar.gz | |
(report-emacs-bug-hook): Don't fail completely
if the user edits the Emacs version number in the text.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index c1cbc7b98e8..9b1d3cd4553 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -240,8 +240,8 @@ and send the mail again using \\[mail-send-and-exit]."))) ;; Unclutter (mail-text) (let ((p (point))) - (re-search-forward (concat "^In " (emacs-version))) - (delete-region p (match-beginning 0))) + (if (re-search-forward (concat "^In " (emacs-version)) nil t) + (delete-region p (match-beginning 0)))) (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*" (point-max) t) (replace-match "Symptoms:\n"))) |