From: Lars Ingebrigtsen Date: Sun, 25 Jan 2015 12:18:51 +0000 (+0000) Subject: lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends X-Git-Tag: emacs-25.0.90~2581^2~2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f67446455fc0ec59f5c25c90a8783e571b60dc8f;p=emacs.git lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5a61a211661..08e904adf48 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2015-01-25 Lars Ingebrigtsen + + * gnus-group.el (gnus-group-suspend): Close all backends. + 2015-01-15 Lars Magne Ingebrigtsen * nntp.el (nntp-send-authinfo): Error out if the password is wrong. diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index f3dcc40b8c4..dc11442656d 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -4312,6 +4312,11 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending." (gnus-kill-buffer buf))) (setq gnus-backlog-articles nil) (gnus-kill-gnus-frames) + ;; Closing all the backends is useful (for instance) when when the + ;; IP addresses have changed and you need to reconnect. + (dolist (elem gnus-opened-servers) + (gnus-close-server (car elem)) + (setcar (cdr elem) 'closed)) (when group-buf (bury-buffer group-buf) (delete-windows-on group-buf t))))