(gnus-inews-make-draft-meta-information): Really

get it right.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1e61ca..c1dd2d4 100644 (file)
--- 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 e92e585..73dd731 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -434,12 +434,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