[gnus git] branch master updated: n0-17-100-g90c1f88 =1= Bail out in nnimap if the server has closed the connection.

       via  90c1f88e5357d61a732d6f78d3c9a0278d78f49e (commit)
      from  90cb96f3b226578ff278d6d152c00406cf64f1cd (commit)


- Log -----------------------------------------------------------------
commit 90c1f88e5357d61a732d6f78d3c9a0278d78f49e
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jun 30 01:09:38 2011 +0200

    Bail out in nnimap if the server has closed the connection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12e5633..b95f36e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-06-29  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* message.el (message-send-mail-function): Add `sendmail-query-once'.
+
+	* nnimap.el (nnimap-finish-retrieve-group-infos): If the server has
+	ended the connection, bail out before waiting infinitely on a new
+	connection.
+
 2011-06-28  Teodor Zlatanov  <[email protected]>
 
 	* gnus-msg.el (gnus-bug): Add Package and Version pseudo-headers to bug
diff --git a/lisp/message.el b/lisp/message.el
index 8f58402..ff5f619 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -686,6 +686,7 @@ Done before generating the new subject of a forward."
 (defcustom message-send-mail-function
   (cond ((eq send-mail-function 'smtpmail-send-it) 'message-smtpmail-send-it)
 	((eq send-mail-function 'feedmail-send-it) 'feedmail-send-it)
+	((eq send-mail-function 'sendmail-query-once) 'sendmail-query-once)
 	((eq send-mail-function 'mailclient-send-it)
 	 'message-send-mail-with-mailclient)
 	(t (message-send-mail-function)))
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 2cfc889..e78c20b 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1227,6 +1227,10 @@ textual parts.")
 
 (deffoo nnimap-finish-retrieve-group-infos (server infos sequences)
   (when (and sequences
+	     ;; Check that the process is still alive.
+	     (get-buffer-process (nnimap-buffer))
+	     (memq (process-status (get-buffer-process (nnimap-buffer)))
+		   '(open run))
 	     (nnimap-possibly-change-group nil server))
     (with-current-buffer (nnimap-buffer)
       ;; Wait for the final data to trickle in.

-----------------------------------------------------------------------
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  |    8 ++++++++
 lisp/message.el |    1 +
 lisp/nnimap.el  |    4 ++++
 3 files changed, 13 insertions(+), 0 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