Re: automatic Agentizing of servers (was: Summary buffer

[Simon Josefsson <jas@extundo.com>]

Steinar Bang <sb@dod.no> writes:

>>>>>> Simon Josefsson <jas@extundo.com>:
>
>> And gnus-agent-covered-methods should be read from
>> ~/News/agent/lib/servers.  So only when g-a-c-m is nil should the
>> auto agentizing happen.  Hm.  I guess if you deagentize all your
>> servers, they would be auto-agentized again.  But if no servers are
>> agentized, what's the point if using the agent?
>
> I may wish to switch it on again for a server, without having to touch
> the configuration file.

I agree.

>> Perhaps it should disable itself in that case.
>
> This was never resolved...?
>
> I did a CVS update yesterday for the first time since October, and
> encountered the auto-agentizing behaviour, and didn't like it.

I have installed the following.  I did test it slightly, but please
verify if it works.

2003-12-29  Simon Josefsson  <jas@extundo.com>

	* gnus-agent.el (gnus-agentize): Improve auto-agentizing logic.
	Suggested by Steinar Bang <sb@dod.no>.

Index: gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 6.183
diff -u -p -u -w -r6.183 gnus-agent.el
--- gnus-agent.el	21 Dec 2003 15:42:11 -0000	6.183
+++ gnus-agent.el	29 Dec 2003 21:36:59 -0000
@@ -608,7 +608,11 @@ minor mode in all Gnus buffers."
               message-send-mail-function)
 	  message-send-mail-real-function 'gnus-agent-send-mail))
 
-  (unless gnus-agent-covered-methods
+  ;; If the servers file doesn't exist, auto-agentize some servers and
+  ;; save the servers file so this auto-agentizing isn't invoked
+  ;; again.
+  (unless (file-exists-p (nnheader-concat gnus-agent-directory "lib/servers"))
+    (gnus-message 3 "First time agent user, agentizing remote groups...")
     (mapc
      (lambda (server-or-method)
        (let ((method (gnus-server-to-method server-or-method)))
@@ -617,7 +621,8 @@ minor mode in all Gnus buffers."
            (push (gnus-method-to-server method)
                  gnus-agent-covered-methods)
            (setq gnus-agent-method-p-cache nil))))
-     (cons gnus-select-method gnus-secondary-select-methods))))
+     (cons gnus-select-method gnus-secondary-select-methods))
+    (gnus-agent-write-servers)))
 
 (defun gnus-agent-queue-setup (&optional group-name)
   "Make sure the queue group exists.