# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020186690 0
# Node ID aae55a41ad031f37cbdb1ad875cb5efd64adaa4c
# Parent  83eb711e67356e6232cbae5888df297c0dc46992
(report-emacs-bug-hook): Use replace-match only if search was successful.

diff -r 83eb711e6735 -r aae55a41ad03 lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Tue Apr 30 16:36:02 2002 +0000
+++ b/lisp/mail/emacsbug.el	Tue Apr 30 17:11:30 2002 +0000
@@ -242,9 +242,9 @@
     (let ((p (point)))
       (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")))
+    (if (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
+			   (point-max) t)
+	(replace-match "Symptoms:\n"))))
 
 (provide 'emacsbug)