(nnagent-request-set-mark): Also set the marks for the original back end that

 keeps marks in the local system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ebc757a..bd96aa8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnagent.el (nnagent-request-set-mark): Also set the marks for the
+       original back end that keeps marks in the local system.
+
 2007-06-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-summary-command-nosave): Don't set the 3rd

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index ef41d44..6f53528 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -132,6 +132,14 @@
     (insert ")\n")
     (write-region (point-min) (point-max) (gnus-agent-lib-file "flags")
                  t 'silent))
+  ;; Also set the marks for the original back end that keeps marks in
+  ;; the local system.
+  (let ((gnus-agent nil))
+    (when (and (memq (car gnus-command-method) '(nntp))
+              (gnus-check-backend-function 'request-set-mark
+                                           (car gnus-command-method)))
+      (funcall (gnus-get-function gnus-command-method 'request-set-mark)
+              group action server)))
   nil)
 
 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old)