- (eq (intern (concat rss-ns "item")) (car item))
- (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))
+ (string= (concat rss-ns "item") (car item))
+ (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)))