* 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 (file)
--- 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 (file)
--- 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)