(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 eae14f4..5b52fb1 100644 (file)
--- 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 1cc64e4..2fc14cc 100644 (file)
--- 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