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 | |
| 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.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 <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"))) |