--- a/lisp/gnus/gnus-msg.el	Mon Aug 13 08:53:41 2007 +0200
+++ b/lisp/gnus/gnus-msg.el	Mon Aug 13 08:54:01 2007 +0200
@@ -404,8 +404,10 @@
 		(message-mail (or to-address to-list))
 		;; Arrange for mail groups that have no `to-address' to
 		;; get that when the user sends off the mail.
-		(push (list 'gnus-inews-add-to-address pgroup)
-		      message-send-actions))
+		(when (and (not to-list)
+			   (not to-address))
+		  (push (list 'gnus-inews-add-to-address pgroup)
+			message-send-actions)))
 	    (set-buffer gnus-article-copy)
 	    (message-wide-reply to-address)))
 	(when yank