From 8ef935334c7c1229c4f56a15ace7e79a9e1fcb23 Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 19 Jul 2002 00:12:45 +0000 Subject: [PATCH] (gnus-agentize): Use `gnus-agent-covered-methods'. (gnus-agent-covered-methods): New function. --- lisp/gnus-agent.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index fae871e..b263406 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -335,7 +335,17 @@ agent minor mode in all Gnus buffers." (setq gnus-agent-send-mail-function message-send-mail-function message-send-mail-function 'gnus-agent-send-mail)) (unless gnus-agent-covered-methods - (setq gnus-agent-covered-methods (list gnus-select-method)))) + (setq gnus-agent-covered-methods (gnus-agent-covered-methods)))) + +(defun gnus-agent-covered-methods () + "Make a list of default covered methods." + (let ((methods (cons gnus-select-method gnus-secondary-select-methods)) + method rest) + (while methods + (setq method (pop methods)) + (when (get (car method) 'gnus-agent-covered-method) + (push method rest))) + rest)) (defun gnus-agent-queue-setup () "Make sure the queue group exists." -- 1.7.10.4