Mercurial > emacs
diff lisp/gnus/gnus-agent.el @ 111555:762d888ceed2
gnus-agent.el (gnus-agentize): Only do the auto-agentizing if gnus-agent-auto-agentize-methods is set. Which it isn't.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 15 Nov 2010 22:12:43 +0000 |
parents | 11259a64bfc0 |
children | db63bc492d85 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-agent.el Mon Nov 15 16:40:30 2010 -0500 +++ b/lisp/gnus/gnus-agent.el Mon Nov 15 22:12:43 2010 +0000 @@ -695,7 +695,9 @@ ;; 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")) + (when (and (not (file-exists-p (nnheader-concat + gnus-agent-directory "lib/servers"))) + gnus-agent-auto-agentize-methods) (gnus-message 3 "First time agent user, agentizing remote groups...") (mapc (lambda (server-or-method)