]> code.delx.au - gnu-emacs/commitdiff
newsticker: Take care of UIDs when adding elements to cache.
authorUlf Jasper <ulf.jasper@web.de>
Wed, 26 Nov 2014 18:29:34 +0000 (19:29 +0100)
committerUlf Jasper <ulf.jasper@web.de>
Wed, 26 Nov 2014 18:29:34 +0000 (19:29 +0100)
* lisp/net/newst-backend.el (newsticker--parse-generic-items): Take
care of UIDs when adding elements to cache.

lisp/ChangeLog
lisp/net/newst-backend.el

index 7567c6323c8d58a2073c849ed70b2b569b9886b3..ee4739023761a1db9481c7a345de9206ef473306 100644 (file)
@@ -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.
index 7be07c74fcbf4d6309d8003a6165fd14e9b8f184..41f8b8440bdafbf0579e9026638e6ce78b12222c 100644 (file)
@@ -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