From: yamaoka <yamaoka>
Date: Wed, 29 Dec 2004 13:39:42 +0000 (+0000)
Subject: Synch to No Gnus 200412291339.
X-Git-Tag: t-gnus-6_17_4-quimby-~612
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f65c5124e2be6c100f6926ceb1b402218e6f5fbc;p=elisp%2Fgnus.git-

Synch to No Gnus 200412291339.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13edcf5..79b84ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-make-rss-group): Exclude `/'s.
+
 2004-12-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nnrss.el (nnrss-get-encoding): Fix regexp.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 3e3c86f..5cf2b22 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2670,9 +2670,12 @@ If there is, use Gnus to create an nnrss group"
       (setq url (read-from-minibuffer "URL to Search for RSS: ")))
   (let ((feedinfo (nnrss-discover-feed url)))
     (if feedinfo
-	(let ((title (read-from-minibuffer "Title: "
-					   (cdr (assoc 'title
-						       feedinfo))))
+	(let ((title (gnus-newsgroup-savable-name
+		      (read-from-minibuffer "Title: "
+					    (gnus-newsgroup-savable-name
+					     (or (cdr (assoc 'title
+							     feedinfo))
+						 "")))))
 	      (desc  (read-from-minibuffer "Description: "
 					   (cdr (assoc 'description
 						       feedinfo))))