From 947def11e6302bbe84985a7857ed757097d52b11 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 2 Jul 2007 12:15:13 +0000 Subject: [PATCH] (nnagent-request-set-mark): Also set the marks for the original back end that keeps marks in the local system. --- lisp/ChangeLog | 5 +++++ lisp/nnagent.el | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ebc757a66..bd96aa8b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-02 Katsumi Yamaoka + + * 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 * gnus-art.el (gnus-article-summary-command-nosave): Don't set the 3rd diff --git a/lisp/nnagent.el b/lisp/nnagent.el index ef41d44bf..6f53528b4 100644 --- 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) -- 2.25.1