lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5a61a211661c09315d7783445f1622e7dffd675f..08e904adf48676afce91feab52c573992f9c892f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-25  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-group.el (gnus-group-suspend): Close all backends.
+
 2015-01-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * 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 f3dcc40b8c48192f91071d11736c5fbc5d3d6ef2..dc11442656d8c2593a76edc0207495ec9a7e428c 100644 (file)
--- 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))))