diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:11:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-30 17:11:38 +0000 |
| commit | 461f30cb27385e8f1f9b32502f803c6d19ae05da (patch) | |
| tree | 2096fb308d4f3a8fb613a0a9d1ff581f8b32b563 /lisp/mail/emacsbug.el | |
| parent | 87810ca9dfafe65ea5051df5569a379a8bda4647 (diff) | |
| download | emacs-461f30cb27385e8f1f9b32502f803c6d19ae05da.tar.gz | |
(report-emacs-bug-hook): Use replace-match only if search was successful.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 9b1d3cd4553..e444fbfae3e 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -242,9 +242,9 @@ and send the mail again using \\[mail-send-and-exit]."))) (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) |