From 74d51fb8409ce866cd6f8622f8d157253ff3b8ea Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Apr 2002 02:23:49 +0000 Subject: [PATCH] (report-emacs-bug-hook): Don't fail completely if the user edits the Emacs version number in the text. --- lisp/ChangeLog | 3 +++ lisp/mail/emacsbug.el | 4 ++-- 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 + * 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"))) -- 2.39.5