[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

sb-rss.el patch, take contributor tag into account



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)