diff options
| author | Lars Ingebrigtsen | 2018-04-17 02:11:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2018-04-17 02:11:02 +0200 |
| commit | b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4 (patch) | |
| tree | b5afdc80e9be72978b4004da2e7b8aba8e9f4d0c | |
| parent | c8be645598a53423e4b30954a502f2cfcdf1b434 (diff) | |
| download | emacs-b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4.tar.gz emacs-b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4.zip | |
(gnus-group-goto-group): Return correct value after previous patch
* lisp/gnus/gnus-group.el (gnus-group-goto-group): Return the
correct value after the previous patch.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index a53adecd110..271c3c838bf 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -2607,11 +2607,13 @@ If TEST-MARKED, the line must be marked." | |||
| 2607 | found)) | 2607 | found)) |
| 2608 | (t | 2608 | (t |
| 2609 | ;; Search through the entire buffer. | 2609 | ;; Search through the entire buffer. |
| 2610 | (unless (gnus-goto-char | 2610 | (if (gnus-goto-char |
| 2611 | (text-property-any | 2611 | (text-property-any |
| 2612 | (point-min) (point-max) | 2612 | (point-min) (point-max) |
| 2613 | 'gnus-group (gnus-intern-safe group gnus-active-hashtb))) | 2613 | 'gnus-group (gnus-intern-safe group gnus-active-hashtb))) |
| 2614 | (goto-char start))))))) | 2614 | (point) |
| 2615 | (goto-char start) | ||
| 2616 | nil)))))) | ||
| 2615 | 2617 | ||
| 2616 | (defun gnus-group-next-group (n &optional silent) | 2618 | (defun gnus-group-next-group (n &optional silent) |
| 2617 | "Go to next N'th newsgroup. | 2619 | "Go to next N'th newsgroup. |