From 0d0bb4e54fb9558cdcf5f1e65b116e65a1f1586b Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 29 Dec 2003 21:38:22 +0000 Subject: [PATCH] gnus-agent.el (gnus-agentize): Improve auto-agentizing logic. Suggested by Steinar Bang . --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 21 +++++++++++++-------- 2 files changed, 18 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8be92f5ca..5a950c0ec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-12-29 Simon Josefsson + + * gnus-agent.el (gnus-agentize): Improve auto-agentizing logic. + Suggested by Steinar Bang . + 2003-12-29 Kevin Greiner * gnus.el (gnus-server-to-method): Fixed bug in 2003-12-22 check-in. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 811d2764a..862af28cd 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -605,19 +605,24 @@ minor mode in all Gnus buffers." (unless gnus-agent-send-mail-function (setq gnus-agent-send-mail-function (or message-send-mail-real-function - message-send-mail-function) + 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))) - (when (memq (car method) - gnus-agent-auto-agentize-methods) - (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)))) + (when (memq (car method) + gnus-agent-auto-agentize-methods) + (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)) + (gnus-agent-write-servers))) (defun gnus-agent-queue-setup (&optional group-name) "Make sure the queue group exists. -- 2.25.1