--- nnagent.el~	2007-01-24 07:15:37 +0000
+++ nnagent.el	2007-06-29 10:46:02 +0000
@@ -132,6 +132,12 @@
     (insert ")\n")
     (write-region (point-min) (point-max) (gnus-agent-lib-file "flags")
 		  t 'silent))
+  ;; Also set mark for the original back end.
+  (let ((gnus-agent nil)
+	(method (gnus-find-method-for-group group)))
+    (when (gnus-check-backend-function 'request-set-mark (car method))
+      (funcall (gnus-get-function method 'request-set-mark)
+	       group action server)))
   nil)
 
 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old)