X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=38f99e80ddcb72f9db4d731af9ae4bf213daa1e1;hp=21ba0ff845e1d274466b96ba44814db740f0a99e;hb=507b285173baa14c25dc095f5c65d05a5474a8fe;hpb=62b6726bbc56e1dd0367a63b8a27d5f7b8c3ddff

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 21ba0ff84..38f99e80d 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -306,15 +306,12 @@ header line with the old Message-ID."
       (gnus-summary-select-article t)
       (set-buffer gnus-original-article-buffer)
       (message-supersede)
-      (push
-       `((lambda ()
-	   (gnus-cache-possibly-remove-article ,article nil nil nil t)))
-       message-send-actions)
       (push
        `((lambda ()
 	   (when (buffer-name (get-buffer ,gnus-summary-buffer))
 	     (save-excursion
 	       (set-buffer (get-buffer ,gnus-summary-buffer))
+	       (gnus-cache-possibly-remove-article ,article nil nil nil t)
 	       (gnus-summary-mark-as-read ,article gnus-canceled-mark)))))
        message-send-actions))))
 
@@ -726,7 +723,9 @@ The current group name will be inserted at \"%s\".")
 	       (gnus-alive-p))
       ;; This mail group doesn't have a `to-list', so we add one
       ;; here.  Magic!
-      (gnus-group-add-parameter group (cons 'to-list to-address)))))
+      (when (gnus-y-or-n-p
+	     (format "Do you want to add this as `to-list': %s " to-address))
+	(gnus-group-add-parameter group (cons 'to-list to-address))))))
 
 (defun gnus-put-message ()
   "Put the current message in some group and return to Gnus."