From: Jesper Harder <harder@ifa.au.dk>
Date: Thu, 18 Dec 2003 22:35:22 +0000 (+0000)
Subject: (gnus-inews-add-send-actions): `yanked' can be a
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=903e9ba3268cf151f8e1ee70128444a9a67f0ca1

(gnus-inews-add-send-actions): `yanked' can be a
list of lists.  Reported by Dmitri Paduchikh <paduch@imm.uran.ru>.
---

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  <harder@ifa.au.dk>
+
+	* gnus-msg.el (gnus-inews-add-send-actions): `yanked' can be a
+	list of lists.  Reported by Dmitri Paduchikh <paduch@imm.uran.ru>.
+
 2003-12-18  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* 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