From bf974caa63dfad6c4d0939b17d19b40eba82b676 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 16 Jan 2003 07:19:57 +0000 Subject: [PATCH] * 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. --- ChangeLog | 11 +++++++++++ lisp/gnus-msg.el | 9 +++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index af2f103..93d91f5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +2003-01-16 Katsumi Yamaoka + + * lisp/gnus-msg.el (gnus-summary-digest-mail-forward): Set article + numbers to be marked. + +2003-01-02 Lars Magne Ingebrigtsen + + (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 * 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) -- 1.7.10.4