From: yamaoka <yamaoka>
Date: Thu, 16 Jan 2003 02:45:24 +0000 (+0000)
Subject: [BTTF] * gnus-msg.el (gnus-inews-add-send-actions): Allow a list of articles
X-Git-Tag: t-gnus-6_15_13-00~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=77274afea3c9fc2bba8bc91665abc765d2213d80;p=elisp%2Fgnus.git-

[BTTF] * gnus-msg.el (gnus-inews-add-send-actions): Allow a list of articles
 to be marked as well.
---

diff --git a/ChangeLog b/ChangeLog
index 251a1cd..af2f103 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
+	articles to be marked as well.
+
 2003-01-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-util.el (gnus-read-event-char): Take an optional
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index cdc0b4f..d372cf3 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)