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>
* 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"
(let* ((title (gnus-newsgroup-savable-name
(read-from-minibuffer "Title: "
(gnus-newsgroup-savable-name
(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
......
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