[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f674464: lisp/gnus/gnus-group.el (gnus-group-suspen
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master f674464: lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends |
Date: |
Sun, 25 Jan 2015 12:19:00 +0000 |
branch: master
commit f67446455fc0ec59f5c25c90a8783e571b60dc8f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends
---
lisp/gnus/ChangeLog | 4 ++++
lisp/gnus/gnus-group.el | 5 +++++
2 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5a61a21..08e904a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-25 Lars Ingebrigtsen <address@hidden>
+
+ * gnus-group.el (gnus-group-suspend): Close all backends.
+
2015-01-15 Lars Magne Ingebrigtsen <address@hidden>
* 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 f3dcc40..dc11442 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f674464: lisp/gnus/gnus-group.el (gnus-group-suspend): Close all backends,
Katsumi Yamaoka <=