From: 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/gitweb/?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 + + * 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-15 Simon Josefsson * 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)