[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 (file)
--- 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 (file)
--- 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)