RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 6.1487
diff -u -r6.1487 ChangeLog
--- ChangeLog	2002/08/22 11:54:06	6.1487
+++ ChangeLog	2002/08/26 02:36:44
@@ -1,3 +1,9 @@
+2002-08-26  KOSEKI Yoshinori  <kose@meadowy.org>
+
+	* gnus-agent.el (gnus-agent-agentized-backend): New variable.
+	(gnus-agentize): Agentized, if When gnus-select-method is
+	gnus-agent-agentized-backend.
+
 2002-08-22  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* gnus-art.el (gnus-emphasis-alist): Strikethru had a lot of false
Index: gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 6.73
diff -u -r6.73 gnus-agent.el
--- gnus-agent.el	2002/06/16 21:13:49	6.73
+++ gnus-agent.el	2002/08/26 02:36:45
@@ -156,6 +156,8 @@
 (defvar gnus-agent-send-mail-function nil)
 (defvar gnus-agent-file-coding-system 'raw-text)
 (defvar gnus-agent-file-loading-cache nil)
+(defvar gnus-agent-agentized-backend '(nntp nnimap)
+  "Agentized, When these backends.")
 
 ;; Dynamic variables
 (defvar gnus-headers)
@@ -418,7 +420,8 @@
 					 message-send-mail-real-function
 					 message-send-mail-function)
 	  message-send-mail-real-function 'gnus-agent-send-mail))
-  (unless gnus-agent-covered-methods
+  (when (and (not gnus-agent-covered-methods)
+	     (memq (car gnus-select-method) gnus-agent-agentized-backend))
     (setq gnus-agent-covered-methods (list gnus-select-method))))
 
 (defun gnus-agent-queue-setup ()