Function: newsticker--group-remove-obsolete-feeds

newsticker--group-remove-obsolete-feeds is a byte-compiled function defined in newst-treeview.el.gz.

Signature

(newsticker--group-remove-obsolete-feeds GROUP)

Documentation

Recursively remove obsolete feeds from GROUP.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
(defun newsticker--group-remove-obsolete-feeds (group)
  "Recursively remove obsolete feeds from GROUP."
  (let ((result nil)
        (urls (append newsticker-url-list newsticker-url-list-defaults)))
    (mapc (lambda (g)
            (if (listp g)
                (let ((sub-groups
                       (newsticker--group-remove-obsolete-feeds g)))
                  (if sub-groups
                      (setq result (cons sub-groups result))))
              (if (assoc g urls)
                  (setq result (cons g result)))))
          (cdr group))
    (if result
        (cons (car group) (reverse result))
      result)))