diff options
| author | Stefan Monnier | 2004-09-07 03:47:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-09-07 03:47:37 +0000 |
| commit | abc40aabb9c8b3898029ebeb081510b4c6c993d5 (patch) | |
| tree | c673205d8cc6f0644af307a59ccc104c028f634c | |
| parent | 9b40100a40cd2fefba453bec48eb991d701a8c1b (diff) | |
| download | emacs-abc40aabb9c8b3898029ebeb081510b4c6c993d5.tar.gz emacs-abc40aabb9c8b3898029ebeb081510b4c6c993d5.zip | |
(gnus-summary-search-article-forward):
Signal a specific `search-failed' rather than a generic `error'.
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index af5a2362194..77d5037b32d 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -8341,7 +8341,7 @@ If BACKWARD, search backward instead." | |||
| 8341 | (let ((gnus-last-article gnus-last-article)) | 8341 | (let ((gnus-last-article gnus-last-article)) |
| 8342 | (if (gnus-summary-search-article regexp backward) | 8342 | (if (gnus-summary-search-article regexp backward) |
| 8343 | (gnus-summary-show-thread) | 8343 | (gnus-summary-show-thread) |
| 8344 | (error "Search failed: \"%s\"" regexp)))) | 8344 | (signal 'search-failed (list regexp))))) |
| 8345 | 8345 | ||
| 8346 | (defun gnus-summary-search-article-backward (regexp) | 8346 | (defun gnus-summary-search-article-backward (regexp) |
| 8347 | "Search for an article containing REGEXP backward." | 8347 | "Search for an article containing REGEXP backward." |