(gnus-inews-make-draft-meta-information): Don't add a trailing whitespace.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35d298b..651d828 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

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 76a2f6e..d495bb1 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -437,15 +437,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)))
-  (concat "(\"" group "\" "
+  (concat "(\"" group "\""
          (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 " "))
            "")
          ")"))