From: yamaoka <yamaoka>
Date: Thu, 20 May 2004 00:00:51 +0000 (+0000)
Subject: Synch to No Gnus 200405192325.
X-Git-Tag: t-gnus-6_17_4-quimby-~917
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a1068c8d39a00df5e872ccfd24e74bf355fefd90;p=elisp%2Fgnus.git-

Synch to No Gnus 200405192325.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1e61ca..c1dd2d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-msg.el (gnus-inews-make-draft-meta-information): Really
+	get it right.
+
 2004-05-19  Ben Menasha  <bmenasha@benmenasha.net>
 
 	* nnmh.el (nnmh-request-list-1): Don't check the link count
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 7345f0a..68c8ca8 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -464,12 +464,15 @@ Thank you for your help in stamping out bugs.
 
 (defun gnus-inews-make-draft-meta-information (group &rest articles)
   (concat "(\"" group "\" "
-	  (if articles (mapconcat
-			(lambda (elem)
-			  (if (consp elem)
-			      (car elem)
-			    elem))
-			articles " "))
+	  (if articles
+	      (mapconcat
+	       (lambda (elem)
+		 (number-to-string
+		  (if (consp elem)
+		      (car elem)
+		    elem)))
+	       articles " ")
+	    "")
 	  ")"))
 
 ;;;###autoload