rss-emacs

(defvar *feed* "https://www.eff.org/rss/updates.xml")

(defun parse-feed (status)
  (let* ((start (- (search-forward "<?xml") 5))
         (parsed (libxml-parse-xml-region start (buffer-size)))
         (channel (nth 2 *contents*)))    
    (dolist (x channel)
      (when (and (listp x) (equal (car x) 'item))
        (dolist (y x)
          (when (and (listp y) (equal (car y) 'title))
            (message (nth 2 y))))))))


(url-retrieve *feed* 'parse-feed)