Function: newsticker--start-feed

newsticker--start-feed is a byte-compiled function defined in newst-backend.el.gz.

Signature

(newsticker--start-feed FEED &optional DO-NOT-COMPLAIN-IF-RUNNING)

Documentation

Start retrieval timer for FEED.

If timer is running already a warning message is printed unless DO-NOT-COMPLAIN-IF-RUNNING is not nil. Add the started name/timer pair to newsticker--retrieval-timer-list.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-backend.el.gz
;; ======================================================================
;;; User fun
;; ======================================================================

(defun newsticker--start-feed (feed &optional do-not-complain-if-running)
  "Start retrieval timer for FEED.
If timer is running already a warning message is printed unless
DO-NOT-COMPLAIN-IF-RUNNING is not nil.  Add the started
name/timer pair to `newsticker--retrieval-timer-list'."
  (let* ((feed-name (car feed))
         (start-time (nth 2 feed))
         (interval (or (nth 3 feed)
                       newsticker-retrieval-interval))
         (timer (assoc (car feed)
                       newsticker--retrieval-timer-list)))
    (if timer
        (or do-not-complain-if-running
            (message "Timer for %s is running already!"
                     feed-name))
      (newsticker--debug-msg "Starting timer for %s: %s, %d"
                             feed-name start-time interval)
      ;; do not repeat retrieval if interval not positive
      (if (<= interval 0)
          (setq interval nil))
      (setq timer (run-at-time start-time interval
                               #'newsticker-get-news feed-name))
      (if interval
          (add-to-list 'newsticker--retrieval-timer-list
                       (cons feed-name timer))))))