diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-17 02:11:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-17 02:11:02 +0200 |
| commit | b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4 (patch) | |
| tree | b5afdc80e9be72978b4004da2e7b8aba8e9f4d0c /lisp/gnus/gnus-group.el | |
| parent | c8be645598a53423e4b30954a502f2cfcdf1b434 (diff) | |
| download | emacs-b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4.tar.gz | |
(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.
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -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." found)) (t ;; Search through the entire buffer. - (unless (gnus-goto-char - (text-property-any - (point-min) (point-max) - 'gnus-group (gnus-intern-safe group gnus-active-hashtb))) - (goto-char start))))))) + (if (gnus-goto-char + (text-property-any + (point-min) (point-max) + 'gnus-group (gnus-intern-safe group gnus-active-hashtb))) + (point) + (goto-char start) + nil)))))) (defun gnus-group-next-group (n &optional silent) "Go to next N'th newsgroup. |