diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/newst-backend.el | 15 |
2 files changed, 15 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7567c6323c8..ee473902376 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-11-26 Ulf Jasper <ulf.jasper@web.de> + + * net/newst-backend.el (newsticker--parse-generic-items): Take + care of UIDs when adding elements to cache. + 2014-11-26 Alan Mackenzie <acm@muc.de> Remove spurious reference to symbol category_properties. diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 7be07c74fcb..41f8b8440bd 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -1579,11 +1579,16 @@ argument, which is one of the items in ITEMLIST." ;; item was not there (setq item-new-p t) (setq something-was-added t)) - (setq newsticker--cache - (newsticker--cache-add - newsticker--cache (intern name) title desc link - time age1 position (funcall extra-fn node) - time age2)) + (let ((extra-elements-with-guid (funcall extra-fn node))) + (unless (assoc 'guid extra-elements-with-guid) + (setq extra-elements-with-guid + (cons `(guid nil ,(funcall guid-fn node)) + extra-elements-with-guid))) + (setq newsticker--cache + (newsticker--cache-add + newsticker--cache (intern name) title desc link + time age1 position extra-elements-with-guid + time age2))) (when item-new-p (let ((item (newsticker--cache-contains newsticker--cache (intern name) title |