andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
from the default values of title and description.
This commit is contained in:
Katsumi Yamaoka 2009-07-10 12:05:14 +00:00
parent ea12eb8178
commit ee5a613e68
2 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
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

19
lisp/gnus/gnus-group.el
View file

@ -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