Commit f6744645 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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

parent 407e6bee
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> 2015-01-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
   
* nntp.el (nntp-send-authinfo): Error out if the password is wrong. * nntp.el (nntp-send-authinfo): Error out if the password is wrong.
......
...@@ -4312,6 +4312,11 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending." ...@@ -4312,6 +4312,11 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending."
(gnus-kill-buffer buf))) (gnus-kill-buffer buf)))
(setq gnus-backlog-articles nil) (setq gnus-backlog-articles nil)
(gnus-kill-gnus-frames) (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 (when group-buf
(bury-buffer group-buf) (bury-buffer group-buf)
(delete-windows-on group-buf t)))) (delete-windows-on group-buf t))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment