--- /home/harder/gnus/lisp/gnus-msg.el	Thu May  2 02:05:23 2002
+++ gnus-msg.el	Sat May 11 02:09:38 2002
@@ -788,7 +788,7 @@
 			    force-news)
   (when article-buffer
     (gnus-copy-article-buffer))
-  (let ((gnus-article-reply (and article-buffer (gnus-summary-article-number)))
+  (let ((gnus-article-reply (and article-buffer (gnus-summary-work-articles nil)))
 	(add-to-list gnus-add-to-list))
     (gnus-setup-message (cond (yank 'reply-yank)
 			      (article-buffer 'reply)