Function: newsticker-treeview-next-new-or-immortal-item
newsticker-treeview-next-new-or-immortal-item is an interactive and
byte-compiled function defined in newst-treeview.el.gz.
Signature
(newsticker-treeview-next-new-or-immortal-item &optional CURRENT-ITEM-COUNTS DONT-WRAP-TREES)
Documentation
Move to next new or immortal item.
Will move to next feed until an item is found. Will not move if optional argument CURRENT-ITEM-COUNTS is t and current item is new or immortal. Will not move from virtual to ordinary feed tree or vice versa if optional argument DONT-WRAP-TREES is non-nil.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
(defun newsticker-treeview-next-new-or-immortal-item (&optional
current-item-counts
dont-wrap-trees)
"Move to next new or immortal item.
Will move to next feed until an item is found. Will not move if
optional argument CURRENT-ITEM-COUNTS is t and current item is
new or immortal. Will not move from virtual to ordinary feed
tree or vice versa if optional argument DONT-WRAP-TREES is non-nil."
(interactive)
(newsticker--treeview-restore-layout)
(newsticker--treeview-list-clear-highlight)
(unless (catch 'found
(let ((move (not current-item-counts)))
(while t
(save-current-buffer
(set-buffer (newsticker--treeview-list-buffer))
(when move (forward-line 1)
(when (eobp)
(forward-line -1)
(throw 'found nil))))
(when (memq (newsticker--age
(newsticker--treeview-get-selected-item))
'(new immortal))
(newsticker-treeview-show-item)
(throw 'found t))
(setq move t))))
(let ((wrap-trees (not dont-wrap-trees)))
(when (or (newsticker-treeview-next-feed t)
(and wrap-trees (newsticker--treeview-first-feed)))
(newsticker-treeview-next-new-or-immortal-item t t)))))