[Emacs-diffs] master 549a1ba: newsticker: Take care of UIDs when adding elements to cache.

[Ulf Jasper]

branch: master
commit 549a1bae4a54c56c4c8d212f1441ac44aac89a4b
Author: Ulf Jasper <address@hidden>
Date:   Wed Nov 26 19:29:34 2014 +0100

    newsticker: Take care of UIDs when adding elements to cache.
    
    * lisp/net/newst-backend.el (newsticker--parse-generic-items): Take
    care of UIDs when adding elements to cache.
---
 lisp/ChangeLog            |    5 +++++
 lisp/net/newst-backend.el |   15 ++++++++++-----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7567c63..ee47390 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-26  Ulf Jasper  <address@hidden>
+
+       * net/newst-backend.el (newsticker--parse-generic-items): Take
+       care of UIDs when adding elements to cache.
+
 2014-11-26  Alan Mackenzie  <address@hidden>
 
        Remove spurious reference to symbol category_properties.
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 7be07c7..41f8b84 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