🚀 go-pugleaf

I'm trying to write some Elisp code that searches through a mail
message for a string, and performs different actions based on whether
or not the string is found.  My code looks like this:

(defun my-string-find  (string-arg)
   (set-mark-command nil)
   (beginning-of-buffer)
   (if  (word-search-forward string-arg)
       (progn
          (set-mark-command t)
          t
       )
       (progn
          (set-mark-command t)
          nil
       )
   )
)


But when I execute the line

   (if  (word-search-forward string-arg)

then my program is jumped out of.  I can't seem to find the source for
word-search-forward in our source directory.  Is there a
catch-and-throw signal I could catch?  Is there another function to do
the search?  Is there a better way to do this in the first place?


thanks in advance,
Lee

-- 
short@asf.com              The mystery of government is not how Washington
Lee Short                  works, but how to make it stop.  -- P.J. O'Rourke
Software Janitor        I speak for none of the many steps in the food chain
Hughes Training, Inc.         between myself and General Motors corporation.