X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=ec9adab4a642c8dea00b987bb456b4b5238f36a7;hb=2982b2de5763e18af6e1189e588f319f1f10f522;hp=9688b4bc702b40c61cb3c4fbcbb82715edfe06ba;hpb=3d7771a8a3287a753a304af731d3edc9d004ddd2;p=elisp%2Fgnus.git- diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 9688b4b..ec9adab 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -37,6 +37,7 @@ (require 'gnus-util) (autoload 'message-make-date "message") (autoload 'gnus-agent-read-servers-validate "gnus-agent") +(autoload 'gnus-agent-possibly-alter-active "gnus-agent") (defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc") "Your `.newsrc' file. @@ -683,6 +684,7 @@ the first newsgroup." (setq gnus-list-of-killed-groups nil gnus-have-read-active-file nil gnus-agent-covered-methods nil + gnus-server-method-cache nil gnus-newsrc-alist nil gnus-newsrc-hashtb nil gnus-killed-list nil @@ -1554,8 +1556,8 @@ newsgroup." ;; If the agent is enabled, we may have to alter the active info. (when (and gnus-agent info) - (inline (gnus-agent-possibly-alter-active - (gnus-info-group info) active))) + (gnus-agent-possibly-alter-active + (gnus-info-group info) active)) ;; Modify the list of read articles according to what articles ;; are available; then tally the unread articles and add the