From 77274afea3c9fc2bba8bc91665abc765d2213d80 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 16 Jan 2003 02:45:24 +0000 Subject: [PATCH] [BTTF] * gnus-msg.el (gnus-inews-add-send-actions): Allow a list of articles to be marked as well. --- ChangeLog | 5 +++++ lisp/gnus-msg.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 251a1cd..af2f103 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-01-14 Katsumi Yamaoka + + * lisp/gnus-msg.el (gnus-inews-add-send-actions): Allow a list of + articles to be marked as well. + 2003-01-13 Katsumi Yamaoka * 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) -- 1.7.10.4