# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1094528857 0
# Node ID d7605794bc2b7306e394a2c00f7d671b47d740ec
# Parent  69f3d9a9952b0a27990ab70ab5037413fe2dfa7d
(gnus-summary-search-article-forward):
Signal a specific `search-failed' rather than a generic `error'.

diff -r 69f3d9a9952b -r d7605794bc2b lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Tue Sep 07 03:47:29 2004 +0000
+++ b/lisp/gnus/gnus-sum.el	Tue Sep 07 03:47:37 2004 +0000
@@ -8341,7 +8341,7 @@
   (let ((gnus-last-article gnus-last-article))
     (if (gnus-summary-search-article regexp backward)
 	(gnus-summary-show-thread)
-      (error "Search failed: \"%s\"" regexp))))
+      (signal 'search-failed (list regexp)))))
 
 (defun gnus-summary-search-article-backward (regexp)
   "Search for an article containing REGEXP backward."