Function: newsticker--cache-mark-expired

newsticker--cache-mark-expired is a byte-compiled function defined in newst-backend.el.gz.

Signature

(newsticker--cache-mark-expired DATA FEED OLD-AGE NEW-AGE TIME)

Documentation

Mark all expired entries.

This function sets the age entries in DATA in the feed FEED. If an item's age is OLD-AGE it is set to NEW-AGE if the item is older than TIME.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-backend.el.gz
(defun newsticker--cache-mark-expired (data feed old-age new-age time)
  "Mark all expired entries.
This function sets the age entries in DATA in the feed FEED.  If
an item's age is OLD-AGE it is set to NEW-AGE if the item is
older than TIME."
  (mapc
   (lambda (a-feed)
     (when (or (eq feed 'any)
               (eq (car a-feed) feed))
       (let ((items (cdr a-feed)))
         (mapc
          (lambda (item)
            (when (eq (newsticker--age item) old-age)
	      (let ((exp-time (time-add (newsticker--time item) time)))
                (when (time-less-p exp-time nil)
                  (newsticker--debug-msg
                   "Item `%s' from %s has expired on %s"
                   (newsticker--title item)
                   (format-time-string "%Y-%02m-%d, %H:%M"
                                       (newsticker--time item))
                   (format-time-string "%Y-%02m-%d, %H:%M" exp-time))
                  (setcar (nthcdr 4 item) new-age)))))
          items))))
   data)
  data)