Index: lisp/nnrss.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnrss.el,v
retrieving revision 7.47
diff -c -r7.47 nnrss.el
*** lisp/nnrss.el	24 Jan 2007 07:15:37 -0000	7.47
--- lisp/nnrss.el	16 Apr 2007 17:50:48 -0000
***************
*** 50,55 ****
--- 50,66 ----
  (defvoo nnrss-directory (nnheader-concat gnus-directory "rss/")
    "Where nnrss will save its files.")
  
+ (defvoo nnrss-ignore-article-fields nil
+   "*List of fields that should be ignored when comparing RSS articles.
+ Some RSS feeds update article fields during their lives, such as the
+ number of comments or the times the articles have been seen.  However, if
+ there is a difference between the local article and the distant one,
+ it is considered as a new article.  To avoid this and discard some fields,
+ set this variable to the list of fields to be ignored.
+ 
+ For example, http://worsethanfailure.com requires this variable to be
+ set to '(slash:comments).")
+ 
  ;; (group max rss-url)
  (defvoo nnrss-server-data nil)
  
***************
*** 658,663 ****
--- 669,682 ----
  
  ;;; Snarf functions
  
+ (defun nnrss-make-hash-index (item)
+   (setq item (remove-if
+ 	      (lambda (field)
+ 		(when (listp field)
+ 		  (memq (car field) nnrss-ignore-article-fields)))
+ 	      item))
+   (md5 (gnus-prin1-to-string item)))
+ 
  (defun nnrss-check-group (group server)
    (let (file xml subject url extra changed author date feed-subject
  	     enclosure comments rss-ns rdf-ns content-ns dc-ns
***************
*** 693,699 ****
      (dolist (item (nreverse (nnrss-find-el (intern (concat rss-ns "item")) xml)))
        (when (and (listp item)
  		 (string= (concat rss-ns "item") (car item))
! 		 (progn (setq hash-index (md5 (gnus-prin1-to-string item)))
  			(not (gethash hash-index nnrss-group-hashtb))))
  	(setq subject (nnrss-node-text rss-ns 'title item))
  	(setq url (nnrss-decode-entities-string
--- 712,718 ----
      (dolist (item (nreverse (nnrss-find-el (intern (concat rss-ns "item")) xml)))
        (when (and (listp item)
  		 (string= (concat rss-ns "item") (car item))
! 		 (progn (setq hash-index (nnrss-make-hash-index item))
  			(not (gethash hash-index nnrss-group-hashtb))))
  	(setq subject (nnrss-node-text rss-ns 'title item))
  	(setq url (nnrss-decode-entities-string
Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 7.1527
diff -C0 -r7.1527 ChangeLog
*** lisp/ChangeLog	16 Apr 2007 12:25:04 -0000	7.1527
--- lisp/ChangeLog	16 Apr 2007 17:50:53 -0000
***************
*** 0 ****
--- 1,9 ----
+ 2007-04-16  Michaël Cadilhac  <michael@cadilhac.name>
+ 
+ 	* nnrss.el (nnrss-ignore-article-fields): New variable.  List of fields
+ 	that should be ignored when comparing distant RSS articles with local
+ 	ones.
+ 	(nnrss-make-hash-index): New function.  Create a hash index according
+ 	to the ignored fields.
+ 	(nnrss-check-group): Use it.
+