From: yamaoka <yamaoka>
Date: Thu, 23 Sep 2004 01:15:41 +0000 (+0000)
Subject: Synch to No Gnus 200409230046.
X-Git-Tag: t-gnus-6_17_4-quimby-~753
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16c92034edb61d248d4ebe57c7c38b4f739293e9;p=elisp%2Fgnus.git-

Synch to No Gnus 200409230046.
---

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