mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix to "Simplify gnus-group-search-forward"

Browse source 
This updates commit 7304cc8a9c.
This commit is contained in:
Eric Abrahamsen 2023-12-03 07:16:32 -08:00
parent c03d3fbf41
commit a42e0c6918
1 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lisp/gnus/gnus-group.el
View file

@ -1755,33 +1755,35 @@ current line is also eligible as a target."
(low gnus-level-killed)
(beg (point))
pos found lev)
(unless first-too
(forward-line way))
(while (and
(not (if backward (bobp) (eobp)))
(not (setq
found
(and
(get-text-property (point) 'gnus-group)
(or all
(and
(let ((unread
(get-text-property (point) 'gnus-unread)))
(and (numberp unread) (> unread 0)))
(setq lev (get-text-property (point)
'gnus-level))
(<= lev gnus-level-subscribed)))
(or (not level)
(and (setq lev (get-text-property (point)
'gnus-level))
(or (= lev level)
(and (< lev low)
(< level lev)
(progn
(setq low lev)
(setq pos (point))
nil))))))))
(zerop (forward-line way))))
(if (and backward (progn (beginning-of-line) (bobp)))
nil
(unless first-too
(forward-line way))
(while (and
(not (eobp))
(not (setq
found
(and
(get-text-property (point) 'gnus-group)
(or all
(and
(let ((unread
(get-text-property (point) 'gnus-unread)))
(and (numberp unread) (> unread 0)))
(setq lev (get-text-property (point)
'gnus-level))
(<= lev gnus-level-subscribed)))
(or (not level)
(and (setq lev (get-text-property (point)
'gnus-level))
(or (= lev level)
(and (< lev low)
(< level lev)
(progn
(setq low lev)
(setq pos (point))
nil))))))))
(zerop (forward-line way)))))
(if found
(progn (gnus-group-position-point) t)
(goto-char (or pos beg))