From: yamaoka <yamaoka>
Date: Thu, 16 Jan 2003 07:19:57 +0000 (+0000)
Subject: * gnus-msg.el (gnus-summary-digest-mail-forward): Set article numbers to be
X-Git-Tag: t-gnus-6_15_13-00~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bf974caa63dfad6c4d0939b17d19b40eba82b676;p=elisp%2Fgnus.git-

* gnus-msg.el (gnus-summary-digest-mail-forward): Set article numbers to be
 marked.

(A forgotten thing to synchronize to Oort Gnus.)
* gnus-msg.el (gnus-summary-mail-forward): To many lists of lists.
---

diff --git a/ChangeLog b/ChangeLog
index af2f103..93d91f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2003-01-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-msg.el (gnus-summary-digest-mail-forward): Set article
+	numbers to be marked.
+
+2003-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	(A forgotten thing to synchronize to Oort Gnus.)
+	* lisp/gnus-msg.el (gnus-summary-mail-forward): To many lists of
+	lists.
+
 2003-01-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d372cf3..561f785 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1327,7 +1327,7 @@ from the original Gnus."
       (gnus-summary-digest-mail-forward nil post)
     ;; No process marks.
     (let* ((gnus-article-reply (gnus-summary-article-number))
-	   (gnus-article-yanked-articles (list (list gnus-article-reply)))
+	   (gnus-article-yanked-articles (list gnus-article-reply))
 	   charset
 	   (message-included-forward-headers
 	    (if full-headers "" message-included-forward-headers)))
@@ -1347,9 +1347,10 @@ If N is nil and any articles have been marked with the process mark,
 forward those articles instead.
 Optional POST will use news to forward instead of mail."
   (interactive "P")
-  (let ((articles (gnus-summary-work-articles n))
-	(topics "Topics:\n")
-	subject article frame)
+  (let* ((articles (gnus-summary-work-articles n))
+	 (gnus-article-yanked-articles (copy-sequence articles))
+	 (topics "Topics:\n")
+	 subject article frame)
     (when (car articles)
       (gnus-setup-message 'forward
 	(gnus-summary-select-article)