diff lisp/gnus/gnus-sum.el @ 56946:d7605794bc2b

(gnus-summary-search-article-forward): Signal a specific `search-failed' rather than a generic `error'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 07 Sep 2004 03:47:37 +0000
parents 55fd4f77387a
children 46f0c98a04a2 cce1c0ee76ee
line wrap: on
line diff
--- 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."