Mercurial > emacs

diff lisp/gnus/gnus-group.el @ 103839:65b0cbb5b077

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-make-rss-group): Strip newlines and excessive whitespace from the default values of title and description.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 10 Jul 2009 12:05:14 +0000
parents a9dc0e7c3f2b
children b99b3dda298b
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Fri Jul 10 11:30:37 2009 +0000
+++ b/lisp/gnus/gnus-group.el	Fri Jul 10 12:05:14 2009 +0000
@@ -3055,12 +3055,21 @@
 	(let* ((title (gnus-newsgroup-savable-name
 		       (read-from-minibuffer "Title: "
 					     (gnus-newsgroup-savable-name
-					      (or (cdr (assoc 'title
+					      (mapconcat
+					       'identity
+					       (split-string
+						(or (cdr (assoc 'title
+								feedinfo))
+						    ""))
+					       " ")))))
+	       (desc  (read-from-minibuffer "Description: "
+					    (mapconcat
+					     'identity
+					     (split-string
+					      (or (cdr (assoc 'description
 							      feedinfo))
-						  "")))))
-	       (desc  (read-from-minibuffer "Description: "
-					    (cdr (assoc 'description
-							feedinfo))))
+						  ""))
+					     " ")))
 	       (href (cdr (assoc 'href feedinfo)))
 	       (coding (gnus-group-name-charset '(nnrss "") title)))
 	  (when coding