Commit ee5a613e authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

from the default values of title and description.
parent ea12eb81
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> 2009-06-22 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el (mm-dissect-buffer): Use message-fetch-field instead of * mm-decode.el (mm-dissect-buffer): Use message-fetch-field instead of
......
...@@ -3055,12 +3055,21 @@ If there is, use Gnus to create an nnrss group" ...@@ -3055,12 +3055,21 @@ If there is, use Gnus to create an nnrss group"
(let* ((title (gnus-newsgroup-savable-name (let* ((title (gnus-newsgroup-savable-name
(read-from-minibuffer "Title: " (read-from-minibuffer "Title: "
(gnus-newsgroup-savable-name (gnus-newsgroup-savable-name
(or (cdr (assoc 'title (mapconcat
feedinfo)) 'identity
""))))) (split-string
(or (cdr (assoc 'title
feedinfo))
""))
" ")))))
(desc (read-from-minibuffer "Description: " (desc (read-from-minibuffer "Description: "
(cdr (assoc 'description (mapconcat
feedinfo)))) 'identity
(split-string
(or (cdr (assoc 'description
feedinfo))
""))
" ")))
(href (cdr (assoc 'href feedinfo))) (href (cdr (assoc 'href feedinfo)))
(coding (gnus-group-name-charset '(nnrss "") title))) (coding (gnus-group-name-charset '(nnrss "") title)))
(when coding (when coding
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment