(gnus-group-make-rss-group): Exclude `/'s.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69e3957..dc2b04a 100644 (file)
--- 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 34aee41..cec6b03 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2627,9 +2627,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))))