2001-06-11 10:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-uu.el (gnus-uu-save-article): Use mml tag instead of
	part. From Katsumi Yamaoka <yamaoka@jpl.org>.

	* nnrss.el (nnrss-group-alist): More items.

2001-06-09 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nnrss.el (nnrss-node-text): Use cddr instead xml-node-children.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba2a46c..9495fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2001-06-11 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-uu.el (gnus-uu-save-article): Use mml tag instead of
+       part. From Katsumi Yamaoka <yamaoka@jpl.org>.
+       
+       * nnrss.el (nnrss-group-alist): More items.
+
+2001-06-09 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnrss.el (nnrss-node-text): Use cddr instead xml-node-children.
+
 2001-06-03  Dale Hagglund  <rdh@best.com>
        
        * gnus-mlspl.el (gnus-group-split-fancy): Fix generation of split

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index c9b9f0e..0e091cf 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -886,9 +886,7 @@ When called interactively, prompt for REGEXP."
                       "Date: %s\nFrom: %s\nSubject: %s Digest\n\n"
                       (current-time-string) name name))
              (when (and message-forward-as-mime gnus-uu-digest-buffer)
-               ;; The default part in multipart/digest is message/rfc822.
-               ;; Subject is a fake head.
-               (insert "<#part type=message/rfc822>\nSubject: Topics\n\n"))
+               (insert "<#mml type=message/rfc822>\nSubject: Topics\n\n"))
              (insert "Topics:\n")))
        (when (not (eq in-state 'end))
          (setq state (list 'middle))))

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 48a1180..3df1fac 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -149,8 +149,25 @@
     ;;("TNL.net newsletter" "http://www.tnl.net/newsletter/channel100.asp" "A newsletter about Internet technology and issues.")
     ("W3C" "http://www.w3.org/2000/08/w3c-synd/home.rss" "The latest news at the World Wide Web Consortium.")
     ;;("XML News: RSS Live Content" "http://www.xmlnews.org/RSS/content.html" "A listing of well-known RSS feeds.")
-    ("XMLfr" "http://xmlfr.org/actualites/general.rss10" "French speaking portal site dedicated to XML.")
-    ("XMLhack" "http://xmlhack.com/rss10.php" "Developer news from the XML community.")))
+    ("[fr] XMLfr" "http://xmlfr.org/actualites/general.rss10" 
+     "French speaking portal site dedicated to XML.")
+    ("XMLhack" "http://xmlhack.com/rss10.php" 
+     "Developer news from the XML community.")
+    ("The Register" 
+     "http://www.theregister.co.uk/tonys/slashdot.rdf" 
+     "The Register -- Biting the hand that feeds IT.")
+    ("[de] Heise-Ticker" 
+     "http://www.heise.de/newsticker/heise.rdf" 
+     "German news ticker about technology.")
+    ("[de] Telepolis News" 
+     "http://www.heise.de/tp/news.rdf" 
+     "German background news about technology.")
+    ("Kuro5hin" 
+     "http://www.kuro5hin.org/backend.rdf"
+     "Technology and culture, from the trenches.")
+    ("JabberCentral"
+     "http://www.jabbercentral.com/rss.php"
+     "News around the Jabber instant messaging system.")))
 
 (defvar nnrss-use-local nil)
 
@@ -310,7 +327,7 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
 (defvar nnrss-extra-categories '(nnrss-snarf-moreover-categories))
 
 (defun nnrss-generate-active ()
-  (if (y-or-n-p "Fetch extra categories?")
+  (if (y-or-n-p "Fetch extra categories? ")
       (dolist (func nnrss-extra-categories)
        (funcall func)))
   (save-excursion
@@ -548,7 +565,7 @@ It is useful when `(setq nnrss-use-local t)'."
 
 (defun nnrss-node-text (node)
   (if (stringp node) node
-    (mapconcat 'nnrss-node-text (xml-node-children node) "")))
+    (mapconcat 'nnrss-node-text (cddr node) "")))
 
 (provide 'nnrss)