X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=ed4ee3fd2cdc2ddeac53656be2a930492ddd0b2b;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=68c8ca8292adace898717e470cbcc890e3858477;hpb=a1068c8d39a00df5e872ccfd24e74bf355fefd90;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 68c8ca8..ed4ee3f 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -399,7 +399,7 @@ Thank you for your help in stamping out bugs.
 (defun gnus-inews-make-draft (articles)
   `(lambda ()
      (gnus-inews-make-draft-meta-information
-      ,gnus-newsgroup-name ',@articles)))
+      ,gnus-newsgroup-name ',articles)))
 
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)
@@ -462,7 +462,9 @@ Thank you for your help in stamping out bugs.
        (run-hooks 'post-command-hook)
        (set-buffer-modified-p nil))))
 
-(defun gnus-inews-make-draft-meta-information (group &rest articles)
+(defun gnus-inews-make-draft-meta-information (group articles)
+  (when (numberp articles)
+    (setq articles (list articles)))
   (concat "(\"" group "\" "
 	  (if articles
 	      (mapconcat