 
 (defvar elfeed-initial-tags '(unread)
   "Initial tags for new entries.")
+
+(defvar elfeed-new-entry-hook ()
+  "Functions in this list are called with the new entry as its
+argument. This is a chance to add cutoms tags to new entries.")
 
 (defstruct elfeed-feed
   "A web feed, contains elfeed-entry structs."

    (mapc #'elfeed-search-update-entry entries)
    (unless (use-region-p) (forward-line))))

(provide 'elfeed)

;;; elfeed.el ends here

          for old = (gethash id table)
          when old  ; merge old tags back in
          do (setf (elfeed-entry-tags entry) (elfeed-entry-tags old))
          when (not old)
          do (loop for hook in elfeed-new-entry-hook
                   do (funcall hook entry))
          do (setf (gethash id table) entry))
    (setf (gethash :last-update elfeed-db) (float-time))))

