From 7768bf14c67df0e6ba424ae63bcd3e71e1d6c24a Mon Sep 17 00:00:00 2001 From: Kevin Greiner Date: Thu, 23 Sep 2004 00:46:09 +0000 Subject: [PATCH] * gnus-int.el (gnus-request-set-mark, gnus-request-update-mark): Fixed my last patch. --- 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 80ec75666..db2b5bf6c 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -421,9 +421,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 @@ -434,9 +435,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 -- 2.25.1