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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e0221b182f5c1328b9a1c22440d3ae642595416..0d9de36da580bf7cdf32c3253a00bc56bfa36c7a 100644 (file)
--- 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 c1cbc7b98e8ac36e213090422e51a444d9150f7a..9b1d3cd45539d4adab85e268142ce24ba68da55b 100644 (file)
--- 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")))