[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sb-rss.el patch, take contributor tag into account
- From: David Hansen <david.hansen@xxxxxxx>
- Date: Wed, 05 May 2004 21:40:25 +0200
- X-ml-name: emacs-w3m
- X-mail-count: 06784
Hi,
with this small patch sb-rss.el uses the <dc:contributor>
tag as an additional method to find the author. This is
used e.g. in
http://www.emacswiki.org/cgi-bin/wiki?action=rss
-- David
--- /home/dhansen/cvs-src/emacs-w3m/shimbun/sb-rss.el 2004-02-24 02:02:22.000000000 +0000
+++ /home/dhansen/.elisp/sb-rss.el 2004-05-05 19:22:28.000000000 +0000
@@ -142,7 +142,8 @@
xml))
(throw 'found-author
(or (shimbun-rss-node-text rss-ns 'author channel)
- (shimbun-rss-node-text dc-ns 'creator channel))))))
+ (shimbun-rss-node-text dc-ns 'creator channel)
+ (shimbun-rss-node-text dc-ns 'contributor channel))))))
(dolist (item (shimbun-rss-find-el (intern (concat rss-ns "item")) xml))
(let ((url (and (listp item)
(eq (intern (concat rss-ns "item")) (car item))
@@ -158,6 +159,7 @@
(shimbun-rss-node-text rss-ns 'title item)
(or (shimbun-rss-node-text rss-ns 'author item)
(shimbun-rss-node-text dc-ns 'creator item)
+ (shimbun-rss-node-text dc-ns 'contributor item)
author
(shimbun-from-address shimbun))
(shimbun-rss-process-date shimbun date)