From: yamaoka <yamaoka>
Date: Thu, 16 Jan 2003 07:20:06 +0000 (+0000)
Subject: * gnus-msg.el (gnus-summary-digest-mail-forward): Set article numbers to be
X-Git-Tag: t-gnus-6_15_14-00-quimby~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1b884a9e89d12b3f6500d2a4564b9090ba6d5b5;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 ecdf576..3236a41 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-15  Simon Josefsson  <jas@extundo.com>
 
 	* GNUS-NEWS: Add.  Fix from Reiner Steib
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index dde2f37..fb1b829 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)