[Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog [EMACS_23_1_RC]

[Katsumi Yamaoka]

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