diff options
| author | Miles Bader <miles@gnu.org> | 2007-12-06 00:21:00 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-12-06 00:21:00 +0000 |
| commit | b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a (patch) | |
| tree | b97d8b30984a8884b61d54b056a4aabf852ecbbe /lisp/gnus/gnus-int.el | |
| parent | f6e7ec024870e8ccaaed5bc2e0d92fde7554e16b (diff) | |
| download | emacs-b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a.tar.gz emacs-b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a.tar.bz2 emacs-b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a.zip | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-941
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 52b5e350653..ac2b7237866 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -36,6 +36,7 @@ (autoload 'gnus-agent-expire "gnus-agent") (autoload 'gnus-agent-regenerate-group "gnus-agent") (autoload 'gnus-agent-read-servers-validate-native "gnus-agent") +(autoload 'gnus-agent-possibly-synchronize-flags-server "gnus-agent") (defcustom gnus-open-server-hook nil "Hook called just before opening connection to the news server." @@ -278,6 +279,11 @@ If it is down, start it up (again)." ;; prompting with "go offline?". This is only a concern ;; when the agent's backend fails to open the server. (gnus-open-server gnus-command-method)) + (when (and (eq (cadr elem) 'ok) gnus-agent + (gnus-agent-method-p gnus-command-method)) + (save-excursion + (gnus-agent-possibly-synchronize-flags-server + gnus-command-method))) result))))) (defun gnus-close-server (gnus-command-method) |