From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 10 Jul 2009 12:04:59 +0000 (+0000)
Subject: (gnus-group-make-rss-group): Strip newlines and	excessive whitespace
X-Git-Tag: emacs-23.1~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21bacd275f83b2f57a0436aceac57646d1de7754;p=emacs.git

(gnus-group-make-rss-group): Strip newlines and	excessive whitespace
from the default values of title and description.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 514648aa153..1d0f1002a7d 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-make-rss-group): Strip newlines and
+	excessive whitespace from the default values of title and description.
+
 2009-06-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mm-decode.el (mm-dissect-buffer): Use message-fetch-field instead of
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index fbf0cf0f107..602ee31944a 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -3055,12 +3055,21 @@ If there is, use Gnus to create an nnrss group"
 	(let* ((title (gnus-newsgroup-savable-name
 		       (read-from-minibuffer "Title: "
 					     (gnus-newsgroup-savable-name
-					      (or (cdr (assoc 'title
-							      feedinfo))
-						  "")))))
+					      (mapconcat
+					       'identity
+					       (split-string
+						(or (cdr (assoc 'title
+								feedinfo))
+						    ""))
+					       " ")))))
 	       (desc  (read-from-minibuffer "Description: "
-					    (cdr (assoc 'description
-							feedinfo))))
+					    (mapconcat
+					     'identity
+					     (split-string
+					      (or (cdr (assoc 'description
+							      feedinfo))
+						  ""))
+					     " ")))
 	       (href (cdr (assoc 'href feedinfo)))
 	       (coding (gnus-group-name-charset '(nnrss "") title)))
 	  (when coding