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

[Katsumi Yamaoka]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       09/07/10 12:05:15

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&r1=1.78&r2=1.79
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.809&r2=1.810

Patches:
Index: gnus-group.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-group.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- gnus-group.el       5 Jan 2009 03:21:58 -0000       1.78
+++ gnus-group.el       10 Jul 2009 12:05:14 -0000      1.79
@@ -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.809
retrieving revision 1.810
diff -u -b -r1.809 -r1.810
--- ChangeLog   23 Jun 2009 22:38:22 -0000      1.809
+++ ChangeLog   10 Jul 2009 12:05:14 -0000      1.810
@@ -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