From 16c92034edb61d248d4ebe57c7c38b4f739293e9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 23 Sep 2004 01:15:41 +0000 Subject: [PATCH] Synch to No Gnus 200409230046. --- lisp/gnus-int.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index c5bf584..c2ed96a 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -422,9 +422,10 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." (defun gnus-request-set-mark (group action) "Set marks on articles in the back end." (let* ((gnus-command-method (gnus-find-method-for-group group)) - (gnus-plugged (or gnus-plugged - (member (car gnus-command-method) - gnus-servers-that-use-local-marks)))) + (gnus-agent (if (member (car gnus-command-method) + gnus-servers-that-use-local-marks) + nil + gnus-agent))) (if (not (gnus-check-backend-function 'request-set-mark (car gnus-command-method))) action @@ -435,9 +436,10 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." (defun gnus-request-update-mark (group article mark) "Allow the back end to change the mark the user tries to put on an article." (let* ((gnus-command-method (gnus-find-method-for-group group)) - (gnus-plugged (or gnus-plugged - (member (car gnus-command-method) - gnus-servers-that-use-local-marks)))) + (gnus-agent (if (member (car gnus-command-method) + gnus-servers-that-use-local-marks) + nil + gnus-agent))) (if (not (gnus-check-backend-function 'request-update-mark (car gnus-command-method))) mark -- 1.7.10.4