From: yamaoka <yamaoka>
Date: Thu, 18 Dec 2003 22:40:23 +0000 (+0000)
Subject: Synch to Gnus 200312182235.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=55c9a7e0817bda5c4d264cdc817c142ef7a7ddf7;p=elisp%2Fgnus.git-

Synch to Gnus 200312182235.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eae14f4..5b52fb1 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 f50a1f0..69ade1b 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -569,7 +569,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