[gnus git] branch master updated: =1= (nnimap-request-list): Protect against not being able to open the server.

       via  034742263e7ca5aed088d9b9dcfe4c456d6a26ea (commit)
      from  278f3afec4e53ae42493ce5ee3c7a73454b83304 (commit)


- Log -----------------------------------------------------------------
commit 034742263e7ca5aed088d9b9dcfe4c456d6a26ea
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 17 16:31:28 2011 -0800

    (nnimap-request-list): Protect against not being able to open the server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8e9364..147a757 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
 	* nnimap.el (nnimap-log-command): Add a newline to the inhibited
 	logging.
 	(nnimap-credentials): Protect against auth-source-search returning nil.
+	(nnimap-request-list): Protect against not being able to open the
+	server.
 
 2011-02-17  Lars Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 84bbac1..9c93ee8 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1075,7 +1075,7 @@ textual parts.")
     (nreverse groups)))
 
 (deffoo nnimap-request-list (&optional server)
-  (nnimap-possibly-change-group nil server)
+  (when (nnimap-possibly-change-group nil server)
   (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (let ((groups
@@ -1087,7 +1087,8 @@ textual parts.")
 	  (setf (nnimap-group nnimap-object) nil)
 	  (dolist (group groups)
 	    (setf (nnimap-examined nnimap-object) group)
-	    (push (list (nnimap-send-command "EXAMINE %S" (utf7-encode group t))
+	      (push (list (nnimap-send-command "EXAMINE %S"
+					       (utf7-encode group t))
 			group)
 		  sequences))
 	  (nnimap-wait-for-response (caar sequences))
@@ -1112,15 +1113,16 @@ textual parts.")
 		 ((zerop exists)
 		  ;; Empty group.
 		  (insert (format "%S %d %d y\n"
-				  (utf7-decode group t) highest (1+ highest))))
+				    (utf7-decode group t)
+				    highest (1+ highest))))
 		 (t
 		  ;; Return the widest possible range.
 		  (insert (format "%S %d 1 y\n" (utf7-decode group t)
 				  (or highest exists)))))))))
-	t))))
+	  t)))))
 
 (deffoo nnimap-request-newgroups (date &optional server)
-  (nnimap-possibly-change-group nil server)
+  (when (nnimap-possibly-change-group nil server)
   (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (dolist (group (with-current-buffer (nnimap-buffer)
@@ -1128,7 +1130,7 @@ textual parts.")
       (unless (assoc group nnimap-current-infos)
 	;; Insert dummy numbers here -- they don't matter.
 	(insert (format "%S 0 1 y\n" group))))
-    t))
+      t)))
 
 (deffoo nnimap-retrieve-group-data-early (server infos)
   (when (nnimap-possibly-change-group nil server)

-----------------------------------------------------------------------
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 |    2 +
 lisp/nnimap.el |  106 ++++++++++++++++++++++++++++---------------------------
 2 files changed, 56 insertions(+), 52 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