* gnus-int.el (gnus-request-move-article): Use

	gnus-agent-unfetch-articles in place of gnus-agent-expire to
	improve performance.

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index fca55d9..5c386ce 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -569,7 +569,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
                          (nth 1 gnus-command-method) accept-function last)))
     (when (and result gnus-agent
               (gnus-agent-method-p gnus-command-method))
-      (gnus-agent-expire (list article) group 'force))
+      (gnus-agent-unfetch-articles group (list article)))
     result))
     
 (defun gnus-request-accept-article (group &optional gnus-command-method last