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

Synch to No Gnus 200405200039.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1dd2d4..828aa27 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* gnus-msg.el (gnus-inews-make-draft-meta-information): Really
 	get it right.
+	(gnus-inews-make-draft): Really.
 
 2004-05-19  Ben Menasha  <bmenasha@benmenasha.net>
 
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