Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ee5a613e
Commit
ee5a613e
authored
Jul 10, 2009
by
Katsumi Yamaoka
Browse files
(gnus-group-make-rss-group): Strip newlines and excessive whitespace
from the default values of title and description.
parent
ea12eb81
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
5 deletions
+19
-5
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/gnus-group.el
lisp/gnus/gnus-group.el
+14
-5
No files found.
lisp/gnus/ChangeLog
View file @
ee5a613e
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
...
...
lisp/gnus/gnus-group.el
View file @
ee5a613e
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment