diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2009-07-10 12:05:14 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2009-07-10 12:05:14 +0000 |
| commit | ee5a613e68803d53b0a9c86029e0acc1d8baefad (patch) | |
| tree | 62a1b89a294a6d4134581f4c680b759fb89a7789 /lisp/gnus/gnus-group.el | |
| parent | ea12eb8178f6858a8f1c32bf118e6cfc71c32611 (diff) | |
| download | emacs-ee5a613e68803d53b0a9c86029e0acc1d8baefad.tar.gz | |
(gnus-group-make-rss-group): Strip newlines and excessive whitespace
from the default values of title and description.
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 19 |
1 files changed, 14 insertions, 5 deletions
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 |