From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 19 Dec 2005 05:19:29 +0000 (+0000)
Subject: (nnrss-check-group): Put the RSS dc:subject in the article.  From Mark Plaksin.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=73668de38653192d8f5da16013e86ae454fc87a8

(nnrss-check-group): Put the RSS dc:subject in the article.  From Mark Plaksin.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 795ef529a..cdceb0bde 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-19  Mark Plaksin <happy@mcplaksin.org>  (tiny change)
+
+	* nnrss.el (nnrss-check-group): Put the RSS dc:subject in the
+	article.
+
 2005-12-18  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* nnml.el: Don't require gnus-bcklg.  Autoload it.
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 2bb6e5f39..cc267cd2c 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -533,7 +533,7 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
 ;;; Snarf functions
 
 (defun nnrss-check-group (group server)
-  (let (file xml subject url extra changed author date
+  (let (file xml subject url extra changed author date feed-subject
 	     enclosure comments rss-ns rdf-ns content-ns dc-ns)
     (if (and nnrss-use-local
 	     (file-exists-p (setq file (expand-file-name
@@ -576,6 +576,8 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
 	(setq extra (or extra
 			(nnrss-node-text content-ns 'encoded item)
 			(nnrss-node-text rss-ns 'description item)))
+        (if (setq feed-subject (nnrss-node-text dc-ns 'subject item))
+            (setq extra (concat feed-subject "<br /><br />\n" extra)))
 	(setq author (or (nnrss-node-text rss-ns 'author item)
 			 (nnrss-node-text dc-ns 'creator item)
 			 (nnrss-node-text dc-ns 'contributor item)))