From 903e9ba3268cf151f8e1ee70128444a9a67f0ca1 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Thu, 18 Dec 2003 22:35:22 +0000 Subject: [PATCH] (gnus-inews-add-send-actions): `yanked' can be a list of lists. Reported by Dmitri Paduchikh . --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eae14f43a..5b52fb1c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-12-18 Jesper Harder + + * gnus-msg.el (gnus-inews-add-send-actions): `yanked' can be a + list of lists. Reported by Dmitri Paduchikh . + 2003-12-18 Reiner Steib * mm-url.el (mm-url-insert-file-contents-external) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 1cc64e4b0..2fc14ccef 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -535,7 +535,9 @@ Gcc: header for archiving purposes." (set-window-configuration ,winconf)) 'exit 'postpone 'kill) (let ((to-be-marked (cond - (yanked yanked) + (yanked + (mapcar + (lambda (x) (if (listp x) (car x) x)) yanked)) (article (if (listp article) article (list article))) (t nil)))) (message-add-action -- 2.25.1