(report-emacs-bug-hook): Don't fail completely

if the user edits the Emacs version number in the text.

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e0221b182f..0d9de36da58 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-04-29  Richard M. Stallman  <rms@gnu.org>
 
+        * mail/emacsbug.el (report-emacs-bug-hook): Don't fail completely
+        if the user edits the Emacs version number in the text.
+
         * filesets.el (filesets-running-xemacs): Make defvar unconditional.
         (filesets-ingroup-files): Renamed from filesets-ingroup-paths.
         (filesets-error): Simplify definition and make conditional
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")))