From: yamaoka <yamaoka>
Date: Tue, 21 Sep 2004 12:31:37 +0000 (+0000)
Subject: Synch to No Gnus 200409211229.
X-Git-Tag: t-gnus-6_17_4-quimby-~758
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dfdd20e8cc7e26c07290af776ec10029cd7fb948;p=elisp%2Fgnus.git-

Synch to No Gnus 200409211229.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ade234..9713649 100644
--- 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 5242448..7174b20 100644
--- 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)))
-  (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 " "))
 	    "")
 	  ")"))