Synch to No Gnus 200409211229.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ade234..9713649 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-inews-make-draft-meta-information): Don't add
+       a trailing whitespace.  Suggested by Cheng Gao <chenggao@gmail.com>.
+

 2004-09-20  Simon Josefsson  <jas@extundo.com>
 
        * mm-util.el (mm-charset-synonym-alist): Map "unicode" to
 2004-09-20  Simon Josefsson  <jas@extundo.com>
 
        * mm-util.el (mm-charset-synonym-alist): Map "unicode" to

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5242448..7174b20 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -467,15 +467,16 @@ Thank you for your help in stamping out bugs.
 (defun gnus-inews-make-draft-meta-information (group articles)
   (when (numberp articles)
     (setq articles (list articles)))
 (defun gnus-inews-make-draft-meta-information (group articles)
   (when (numberp articles)
     (setq articles (list articles)))

-  (concat "(\"" group "\" "
+  (concat "(\"" group "\""

          (if articles
          (if articles

-             (mapconcat
-              (lambda (elem)
-                (number-to-string
-                 (if (consp elem)
-                     (car elem)
-                   elem)))
-              articles " ")
+             (concat " "
+                     (mapconcat
+                      (lambda (elem)
+                        (number-to-string
+                         (if (consp elem)
+                             (car elem)
+                           elem)))
+                      articles " "))

            "")
          ")"))
 
            "")
          ")"))