From ee5a613e68803d53b0a9c86029e0acc1d8baefad Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 10 Jul 2009 12:05:14 +0000 Subject: [PATCH] (gnus-group-make-rss-group): Strip newlines and excessive whitespace from the default values of title and description. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-group.el | 19 ++++++++++++++----- 2 files changed, 19 insertions(+), 5 deletions(-) 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 + + * 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 * 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 -- 2.39.2