[gnus git] branch master updated: m0-11-114-gf718e4e =2= Ignore .info files ; * lisp/gnus-group.el (gnus-group-suspend): Close all backends.

Lars <[email protected]> Sun, 25 Jan 2015 01:41:11 +0100
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  f718e4e89b7f61c595c829ad4ef7497a0c4efcd8 (commit)
       via  7cfe290543b40245afeb46b55b9283345a56afc1 (commit)
      from  538b317caebe6d7bc1347e2306e55950bacf7183 (commit)


- Log -----------------------------------------------------------------
commit f718e4e89b7f61c595c829ad4ef7497a0c4efcd8
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Jan 25 11:40:14 2015 +1100

    Ignore .info files

diff --git a/.gitignore b/.gitignore
index 6445f33..cd5b9fe 100644
--- a/.gitignore
+++ b/.gitignore
@@ -76,3 +76,4 @@ texi/ps/*.pdf
 texi/ps/Makefile
 lisp/*.orig
 texi/*.orig
+texi/*.info

commit 7cfe290543b40245afeb46b55b9283345a56afc1
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Jan 25 11:39:54 2015 +1100

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d4bf59..d62bfdf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-25  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-group.el (gnus-group-suspend): Close all backends.
+
 2015-01-19  Paul Eggert  <[email protected]>
 
 	* dgnushack.el (dgnushack-compile-file): New function.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index f3dcc40..dc11442 100644
--- a/lisp/gnus-group.el
+++ b/lisp/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))))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 .gitignore         |    1 +
 lisp/ChangeLog     |    4 ++++
 lisp/gnus-group.el |    5 +++++
 3 files changed, 10 insertions(+)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project