(report-emacs-bug-hook): Use replace-match only if search was successful.

[gnu-emacs] / lisp / mail / mh-pick.el

diff --git a/lisp/mail/mh-pick.el b/lisp/mail/mh-pick.el
index d0fa073e5794d6bf1e6b5272d3491e74c64f4986..f49f0d76dbff6796f38a091ec18b1dce1e7f61dc 100644 (file)
--- a/lisp/mail/mh-pick.el
+++ b/lisp/mail/mh-pick.el
@@ -1,9 +1,9 @@
-;;; mh-pick --- make a search pattern and search for a message in mh-e
-;; Time-stamp: <95/08/19 16:45:16 gildea>
+;;; mh-pick.el --- make a search pattern and search for a message in mh-e
+;; Time-stamp: <2001-12-20 18:55:31 pavel>
 
 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
 
-;; This file is part of mh-e, part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -16,8 +16,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -25,7 +26,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-pick.el,v 1.3 1995/04/10 00:19:54 kwzh Exp kwzh $
+;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
 
 ;;; Code:
 
@@ -153,7 +154,7 @@ Add the messages found to the sequence named `search'."
   ;; Return the next piece of a pick argument that can be extracted from the
   ;; BUFFER.
   ;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
-  ;; or NIL if no pieces remain.
+  ;; or nil if no pieces remain.
   (set-buffer buffer)
   (let ((case-fold-search t))
     (cond ((eobp)
@@ -192,3 +193,5 @@ Add the messages found to the sequence named `search'."
 (define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field)
 (define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field)
 (define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field)
+
+;;; mh-pick.el ends here