Mercurial > emacs
changeset 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 | ebfca53e3979 |
| children | ee13ba492319 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-agent.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Nov 15 16:40:30 2010 -0500 +++ b/lisp/gnus/ChangeLog Mon Nov 15 22:12:43 2010 +0000 @@ -1,3 +1,8 @@ +2010-11-15 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * gnus-agent.el (gnus-agentize): Only do the auto-agentizing if + gnus-agent-auto-agentize-methods is set. Which it isn't. + 2010-11-15 Katsumi Yamaoka <yamaoka@jpl.org> * gnus-sum.el (gnus-summary-move-article): Fix `while' loop to make it
--- 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)