From: yamaoka <yamaoka>
Date: Tue, 14 Jan 2003 07:59:36 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_14-00-quimby~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e98fee44a4c4d37f6fb5fdf33f739d86000b842;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 604212b..f0aada3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
+	articles to be marked as well.
+
 2002-01-11  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 	* gnus-agent.el (gnus-agent-get-undownloaded-list): Include the
 	fictious headers generated by nnagent (ie. Undownloaded Article
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bf685f8..dde2f37 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -547,7 +547,7 @@ Gcc: header for archiving purposes."
      `(set-window-configuration ,winconf) 'exit 'postpone 'kill))
   (let ((to-be-marked (cond
 		       (yanked yanked)
-		       (article (list article))
+		       (article (if (listp article) article (list article)))
 		       (t nil))))
     (message-add-action
      `(when (gnus-buffer-exists-p ,buffer)