From f65c5124e2be6c100f6926ceb1b402218e6f5fbc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 29 Dec 2004 13:39:42 +0000 Subject: [PATCH] Synch to No Gnus 200412291339. --- lisp/ChangeLog | 4 ++++ lisp/gnus-group.el | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 + + * 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 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)))) -- 1.7.10.4