(gnus-group-make-rss-group): Strip newlines and excessive whitespace

from the default values of title and description.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac85af8..9dd02ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-group.el b/lisp/gnus-group.el
index fbf0cf0..602ee31 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/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