--- a/lisp/gnus/gnus-sum.el	Mon Aug 13 09:37:21 2007 +0200
+++ b/lisp/gnus/gnus-sum.el	Mon Aug 13 09:38:25 2007 +0200
@@ -5858,7 +5858,7 @@
 		    '<)
 		   (sort gnus-newsgroup-limit '<)))
 	article)
-    (setq gnus-newsgroup-unreads nil)
+    (setq gnus-newsgroup-unreads gnus-newsgroup-limit)
     (if all
 	(setq gnus-newsgroup-dormant nil
 	      gnus-newsgroup-marked nil
@@ -6334,7 +6334,7 @@
 `gnus-select-article-hook' is not called during the search."
   ;; We have to require this here to make sure that the following
   ;; dynamic binding isn't shadowed by autoloading.
-  (require 'gnus-asynch)
+  (require 'gnus-async)
   (let ((gnus-select-article-hook nil)	;Disable hook.
 	(gnus-article-display-hook nil)
 	(gnus-mark-article-hook nil)	;Inhibit marking as read.
@@ -6663,6 +6663,8 @@
        (cond
 	;; Move the article.
 	((eq action 'move)
+	 ;; Remove this article from future suppression.
+	 (gnus-dup-unsuppress-article article)
 	 (gnus-request-move-article
 	  article			; Article to move
 	  gnus-newsgroup-name		; From newsgroup
@@ -6804,7 +6806,7 @@
       (save-excursion
 	(set-buffer gnus-group-buffer)
 	(when (gnus-group-goto-group (car to-groups) t)
-	  (gnus-group-get-new-news-this-group 1))
+	  (gnus-group-get-new-news-this-group 1 t))
 	(pop to-groups)))
 
     (gnus-kill-buffer copy-buf)