* gnus-msg.el (gnus-inews-make-draft-meta-information): Fix quote

stuff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5b4787..bea5f2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-05-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-msg.el (gnus-inews-make-draft-meta-information): Fix quote
+       stuff. 
+
        * gnus-start.el (gnus-subscribe-hierarchical-interactive): Match
        on real group name.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0e1a0dc..e92e585 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -434,7 +434,12 @@ Thank you for your help in stamping out bugs.
 
 (defun gnus-inews-make-draft-meta-information (group &rest articles)
   (concat "(\"" group "\" "
-         (if articles (mapconcat #'number-to-string articles " "))
+         (if articles (mapconcat
+                       (lambda (elem)
+                         (if (consp elem)
+                             (car elem)
+                           elem))
+                       articles " "))
          ")"))
 
 ;;;###autoload