[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog [EMACS_23_1_RC]
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog [EMACS_23_1_RC] |
Date: |
Fri, 10 Jul 2009 12:05:00 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Katsumi Yamaoka <yamaoka> 09/07/10 12:05:00
Modified files:
lisp/gnus : gnus-group.el ChangeLog
Log message:
(gnus-group-make-rss-group): Strip newlines and excessive whitespace
from the default values of title and description.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-group.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.78&r2=1.78.2.1
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.808.2.1&r2=1.808.2.2
Patches:
Index: gnus-group.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-group.el,v
retrieving revision 1.78
retrieving revision 1.78.2.1
diff -u -b -r1.78 -r1.78.2.1
--- gnus-group.el 5 Jan 2009 03:21:58 -0000 1.78
+++ gnus-group.el 10 Jul 2009 12:04:59 -0000 1.78.2.1
@@ -3055,12 +3055,21 @@
(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
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.808.2.1
retrieving revision 1.808.2.2
diff -u -b -r1.808.2.1 -r1.808.2.2
--- ChangeLog 23 Jun 2009 22:38:13 -0000 1.808.2.1
+++ ChangeLog 10 Jul 2009 12:04:59 -0000 1.808.2.2
@@ -1,3 +1,8 @@
+2009-07-10 Katsumi Yamaoka <address@hidden>
+
+ * 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 <address@hidden>
* mm-decode.el (mm-dissect-buffer): Use message-fetch-field instead of
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog [EMACS_23_1_RC],
Katsumi Yamaoka <=