[gnus git] branch master updated: n0-17-27-g43f8466 =1= nntp.el (nntp-open-connection): Set TCP keepalive option.

       via  43f8466d321c873caa15f169da159de5457ffd7f (commit)
      from  d103393e20c719780abd04cb97f48c6085ae7cc3 (commit)


- Log -----------------------------------------------------------------
commit 43f8466d321c873caa15f169da159de5457ffd7f
Author: Stefan Monnier <[email protected]>
Date:   Mon May 9 22:22:56 2011 +0000

    nntp.el (nntp-open-connection): Set TCP keepalive option.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a2d8d0..eba5015 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-09  Stefan Monnier  <[email protected]>
+
+	* nntp.el (nntp-open-connection): Set TCP keepalive option.
+
 2011-05-09  Teodor Zlatanov  <[email protected]>
 
 	* registry.el (registry-full): Add convenience method.  Fix logic.
@@ -44,8 +48,8 @@
 
 2011-05-02  Lars Magne Ingebrigtsen  <[email protected]>
 
-	* gnus-html.el (gnus-html-schedule-image-fetching): Use
-	url-queue-retrieve, if it exists.
+	* gnus-html.el (gnus-html-schedule-image-fetching):
+	Use url-queue-retrieve, if it exists.
 
 	* shr.el (shr-tag-img): Ditto.
 
@@ -59,7 +63,7 @@
 
 	* gnus-agent.el (gnus-agent-store-article): New function.
 
-	* nnheader.el (nnheader-insert-buffer-substring): Renamed from nntp-
+	* nnheader.el (nnheader-insert-buffer-substring): Rename from nntp-
 	and moved from that file for reuse.
 
 	* pop3.el (pop3-open-server): Error messages are "-ERR".
@@ -141,8 +145,8 @@
 	the gnus-extra-headers.
 	(gnus-registry-ignored-groups): Adjust defaults to match the parameter.
 	(gnus-registry-ignore-group-p): Adjust to take either a group/topic
-	parameter list or a string list in `gnus-registry-ignored-groups'.  Fix
-	logic error.
+	parameter list or a string list in `gnus-registry-ignored-groups'.
+	Fix logic error.
 
 2011-04-21  Lars Magne Ingebrigtsen  <[email protected]>
 
@@ -264,7 +268,7 @@
 	* gnus-registry.el (gnus-registry-remake-db): Put the warning on a
 	"warning" level.
 
-	* mm-url.el (mm-url-package-name): Removed to ease third-party reuse.
+	* mm-url.el (mm-url-package-name): Remove to ease third-party reuse.
 	(mm-url-insert-file-contents): Don't set the package names.
 
 2011-04-11  Teodor Zlatanov  <[email protected]>
@@ -351,10 +355,10 @@
 	save/read cycles.
 	(gnus-registry-read): Use it.
 	(gnus-registry-make-db): Use it.
-	(gnus-registry-spool-action, gnus-registry-handle-action): Fix
-	messaging.
-	(gnus-registry--split-fancy-with-parent-internal): Fix loop.  Map
-	references to actual group names with sender and subject tracking.
+	(gnus-registry-spool-action, gnus-registry-handle-action):
+	Fix messaging.
+	(gnus-registry--split-fancy-with-parent-internal): Fix loop.
+	Map references to actual group names with sender and subject tracking.
 	(gnus-registry-post-process-groups): Use `cond' for better messaging.
 	(gnus-registry-usage-test): Add subject lookup test.
 
@@ -414,8 +418,8 @@
 	value.
 
 	* nntp.el (nntp-open-connection-function): Document the fact that some
-	values are not functions but are instead handled specially.  Recognize
-	nntp-open-plain-stream value.
+	values are not functions but are instead handled specially.
+	Recognize nntp-open-plain-stream value.
 	(nntp-open-connection): Recognize that value.
 
 2011-03-30  Lars Magne Ingebrigtsen  <[email protected]>
@@ -445,7 +449,7 @@
 	* gnus-agent.el (gnus-agent-fetch-headers): Don't message if we're not
 	downloading anything.
 
-	* gnus.el (gnus-splash-svg-color-symbols): Removed superfluous `and'.
+	* gnus.el (gnus-splash-svg-color-symbols): Remove superfluous `and'.
 
 2011-03-29  Adam Sjøgren  <[email protected]>
 
@@ -458,13 +462,13 @@
 	* gnus-sum.el (gnus-simplify-buffer-fuzzy): Take the regexp explicitly
 	instead of using the global gnus-simplify-subject-fuzzy-regexp.
 	(gnus-simplify-subject-fuzzy): Use the local
-	gnus-simplify-subject-fuzzy-regex instead of the global one.  This
-	makes using this variable in group parameters work.
+	gnus-simplify-subject-fuzzy-regex instead of the global one.
+	This makes using this variable in group parameters work.
 
 2011-03-29  Teodor Zlatanov  <[email protected]>
 
-	* gnus-registry.el (gnus-registry-unfollowed-groups): Add
-	"archive:sent" to the unfollowed group regex (for the recent Gnus
+	* gnus-registry.el (gnus-registry-unfollowed-groups):
+	Add "archive:sent" to the unfollowed group regex (for the recent Gnus
 	archive:sent-YYYY-MM-DD groups).
 	(gnus-registry-split-fancy-with-parent): Bail out early in sender
 	tracking if there are more than `gnus-registry-max-track-groups'
@@ -483,8 +487,8 @@
 
 2011-03-28  Brian T. Sniffen  <[email protected]>  (tiny change)
 
-	* imap.el (imap-shell-open, imap-process-connection-type): Use
-	imap-process-connection-type for 'shell' streams as well as
+	* imap.el (imap-shell-open, imap-process-connection-type):
+	Use imap-process-connection-type for 'shell' streams as well as
 	Kerberos, SSL, other subprocesses.
 
 2011-03-26  Chong Yidong  <[email protected]>
@@ -500,7 +504,7 @@
 	Handle the no-parameter case exactly as open-network-stream, with no
 	additional stream processing.  Search plists using plist-get.
 	Explicitly add :end-of-commend parameter if it is missing.
-	(proto-stream-open-default): Renamed from
+	(proto-stream-open-default): Rename from
 	proto-stream-open-network-only.  Return 'default as the type.
 	(proto-stream-open-starttls): Rename from proto-stream-open-network.
 	Use plist-get.  Don't return `tls' as the type if STARTTLS negotiation
@@ -596,15 +600,15 @@
 	* mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are
 	inline.
 
-	* gnus-art.el (article-hide-list-identifiers): Use
-	gnus-group-get-list-identifiers.
+	* gnus-art.el (article-hide-list-identifiers):
+	Use gnus-group-get-list-identifiers.
 
 	* gnus-sum.el (gnus-group-get-list-identifiers): New function.
-	(gnus-summary-remove-list-identifiers): Use
-	gnus-group-get-list-identifiers to get regexp.
+	(gnus-summary-remove-list-identifiers):
+	Use gnus-group-get-list-identifiers to get regexp.
 	(gnus-select-newsgroup, gnus-summary-insert-subject)
-	(gnus-summary-insert-articles): Call
-	gnus-summary-remove-list-identifiers unconditionally.
+	(gnus-summary-insert-articles):
+	Call gnus-summary-remove-list-identifiers unconditionally.
 
 2011-03-15  Lars Magne Ingebrigtsen  <[email protected]>
 
@@ -6054,11 +6058,11 @@
 	case-insensitively.
 	(nnimap-debug): Remove.
 
-	* imap.el (imap-fetch-safe): Removed function, and altered all callers
-	to use `imap-fetch' instead.  According to the comments, this should be
-	safe, since all other IMAP clients use the 1:* syntax.
-	(imap-enable-exchange-bug-workaround): Removed.
-	(imap-debug): Removed -- doesn't seem very useful.
+	* net/imap.el (imap-fetch-safe): Remove function, and alter all
+	callers to use `imap-fetch' instead.  According to the comments, this
+	should be safe, since all other IMAP clients use the 1:* syntax.
+	(imap-enable-exchange-bug-workaround): Remove.
+	(imap-debug): Remove -- doesn't seem very useful.
 
 	* mail-source.el (mail-source-fetch): Don't message if we're fetching
 	mail from a file, and the file doesn't exist.
@@ -6755,8 +6759,8 @@
 
 2010-05-25  Stefan Monnier  <[email protected]>
 
-	* gnus-uu.el, imap.el, nndoc.el, nnrss.el, rfc2047.el, utf7.el: Replace
-	Lisp calls to delete-backward-char by calls to delete-char.
+	* gnus-uu.el, imap.el, nndoc.el, nnrss.el, rfc2047.el, utf7.el:
+	Replace Lisp calls to delete-backward-char by calls to delete-char.
 
 2010-05-20  Kevin Ryde  <[email protected]>
 
diff --git a/lisp/nntp.el b/lisp/nntp.el
index 727d9b4..aa4b918 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1362,6 +1362,11 @@ password contained in '~/.nntp-authinfo'."
       (nntp-kill-buffer pbuffer))
     (when (and (buffer-name pbuffer)
 	       process)
+      (when (and (fboundp 'set-network-process-option)
+                 (eq (process-type process) 'network))
+        ;; Use TCP-keepalive so that connections that pass through a NAT router
+        ;; don't hang when left idle.
+        (set-network-process-option process :keepalive t))
       (gnus-set-process-query-on-exit-flag process nil)
       (if (and (nntp-wait-for process "^2.*\n" buffer nil t)
 	       (memq (process-status process) '(open run)))

-----------------------------------------------------------------------
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:
 lisp/ChangeLog |   70 +++++++++++++++++++++++++++++--------------------------
 lisp/nntp.el   |    5 ++++
 2 files changed, 42 insertions(+), 33 deletions(-)

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