From a4a1681f303a1f41423fbee4d6607ec362cb1092 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 29 Dec 2004 13:39:20 +0000 Subject: [PATCH] (gnus-group-make-rss-group): Exclude `/'s. --- lisp/ChangeLog | 4 ++++ lisp/gnus-group.el | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69e3957fa..dc2b04abc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-12-29 Katsumi Yamaoka + + * gnus-group.el (gnus-group-make-rss-group): Exclude `/'s. + 2004-12-28 Katsumi Yamaoka * nnrss.el (nnrss-get-encoding): Fix regexp. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 34aee41e1..cec6b0300 100644 --- 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)))) -- 2.25.1