From b2136a5ee2cf0ee8c036ec4deffe15dc8190bf8f Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Mon, 3 May 2004 15:23:38 +0000 Subject: [PATCH] (nnrss-check-group, nnrss-read-group-data): Hash on description rather than subject. --- lisp/ChangeLog | 5 +++++ lisp/nnrss.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 999a6ff94..b54b27fa0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-05-03 Jesper Harder + + * nnrss.el (nnrss-check-group, nnrss-read-group-data): Hash on + description rather than subject. + 2004-05-02 Steve Youngs * dgnushack.el: Autoload `mail-fetch-field' for XEmacs. diff --git a/lisp/nnrss.el b/lisp/nnrss.el index 066286225..2e410e1e8 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -331,7 +331,7 @@ ARTICLE is the article number of the current headline.") (let ((coding-system-for-read 'binary)) (load file nil t t)) (dolist (e nnrss-group-data) - (puthash (or (nth 2 e) (nth 3 e)) t nnrss-group-hashtb) + (puthash (or (nth 2 e) (nth 5 e)) t nnrss-group-hashtb) (when (and (car e) (> nnrss-group-min (car e))) (setq nnrss-group-min (car e))) (when (and (car e) (< nnrss-group-max (car e))) @@ -424,10 +424,12 @@ ARTICLE is the article number of the current headline.") (if (setq url (nnrss-decode-entities-unibyte-string (nnrss-node-text rss-ns 'link (cddr item)))) (not (gethash url nnrss-group-hashtb)) - (setq subject (nnrss-node-text rss-ns 'title item)) - (not (gethash subject nnrss-group-hashtb)))) - (setq subject (or subject (nnrss-node-text rss-ns 'title item))) - (setq extra (or (nnrss-node-text content-ns 'encoded item) + (setq extra (or (nnrss-node-text content-ns 'encoded item) + (nnrss-node-text rss-ns 'description item))) + (not (gethash extra nnrss-group-hashtb)))) + (setq subject (nnrss-node-text rss-ns 'title item)) + (setq extra (or extra + (nnrss-node-text content-ns 'encoded item) (nnrss-node-text rss-ns 'description item))) (setq author (or (nnrss-node-text rss-ns 'author item) (nnrss-node-text dc-ns 'creator item) @@ -445,9 +447,9 @@ ARTICLE is the article number of the current headline.") date (and extra (nnrss-decode-entities-unibyte-string extra))) nnrss-group-data) - (puthash (or url subject) t nnrss-group-hashtb) + (puthash (or url extra) t nnrss-group-hashtb) (setq changed t)) - (setq subject nil)) + (setq extra nil)) (when changed (nnrss-save-group-data group server) (let ((pair (assoc group nnrss-server-data))) -- 2.25.1