 
 (require 'cl)
 (require 'xml)
+(require 'xml-query)
 
 (defgroup elfeed nil
   "An Emacs web feed reader."

  (while (and elfeed-waiting
              (< (length elfeed-connections) elfeed-max-connections))
    (let ((request (pop elfeed-waiting)))
      (destructuring-bind (id url cb) request
        (push request elfeed-connections)
        (url-retrieve url cb)))))


              do (elfeed-search-print entry)
              do (insert "\n"))
        (insert "End of entries.\n")
        (elfeed-goto-line line))
      (setf elfeed-search-last-update (float-time)))))

(defun elfeed-search-update-line (&optional n)
  "Redraw the current line."
  (let ((inhibit-read-only t))
    (save-excursion
      (when n (elfeed-goto-line n))
      (let ((entry (elfeed-search-selected :ignore-region)))
        (when entry
          (beginning-of-line)
