(gnus-inews-add-send-actions): Allow a list of articles to be marked as well.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 604212b..f0aada3 100644 (file)
--- 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 1099db6..286e8f1 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -518,7 +518,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)