[gnus git] branch master updated: m0-5-39-g4c4bb35 =1= nnimap: possibly-change-group get a read-only argument

       via  4c4bb3503d9141fa298eb5ba29d3012669f7f73a (commit)
      from  7a78109abe930702366ca2978d804779504d5335 (commit)


- Log -----------------------------------------------------------------
commit 4c4bb3503d9141fa298eb5ba29d3012669f7f73a
Author: Julien Danjou <[email protected]>
Date:   Fri Jun 15 11:49:20 2012 +0200

    nnimap: possibly-change-group get a read-only argument
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c548b7e..6a1cd0c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,11 @@
 
 	* nnimap.el (nnimap-find-article-by-message-id): Use
 	`nnimap-possibly-change-group' rather than its own EXAMINE call.
+	(nnimap-possibly-change-group): Add read-only argument.
+	(nnimap-request-list): Use nnimap-possibly-change-group rather than
+	issuing EXAMINE manually.
+	(nnimap-find-article-by-message-id): Use `nnimap-possibly-change-group'
+	with read-only argument.
 
 2012-06-11  Lars Magne Ingebrigtsen  <[email protected]>
 
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 211b8c8..a911f52 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -973,7 +973,7 @@ textual parts.")
   "Search for message with MESSAGE-ID in GROUP from SERVER."
   (with-current-buffer (nnimap-buffer)
     (erase-buffer)
-    (nnimap-possibly-change-group group server)
+    (nnimap-possibly-change-group group server nil t)
     (let ((sequence
 	   (nnimap-send-command "UID SEARCH HEADER Message-Id %S" message-id))
 	  article result)
@@ -1176,29 +1176,16 @@ textual parts.")
   (when (nnimap-possibly-change-group nil server)
     (with-current-buffer nntp-server-buffer
       (erase-buffer)
-      (let ((groups
-	     (with-current-buffer (nnimap-buffer)
-	       (nnimap-get-groups)))
-	    sequences responses)
-	(when groups
+      (dolist (response
 	  (with-current-buffer (nnimap-buffer)
-	    (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))
-			  group)
-		    sequences))
-	    (nnimap-wait-for-response (caar sequences))
-	    (setq responses
-		  (nnimap-get-responses (mapcar #'car sequences))))
-	  (dolist (response responses)
-	    (let* ((sequence (car response))
-		   (response (cadr response))
-		   (group (cadr (assoc sequence sequences)))
-		   (egroup (encode-coding-string group 'utf-8)))
-	      (when (and group
-			 (equal (caar response) "OK"))
+                 ;; Build a list of (group result-of-EXAMINE) for each group
+                 (mapcar
+                  (lambda (group)
+                    (list group (cdr (nnimap-possibly-change-group group server nil t))))
+                  (nnimap-get-groups))))
+        (let ((group (encode-coding-string (car response) 'utf-8))
+              (response (cadr response)))
+          (when (equal (caar response) "OK")
 		(let ((uidnext (nnimap-find-parameter "UIDNEXT" response))
 		      highest exists)
 		  (dolist (elem response)
@@ -1208,16 +1195,16 @@ textual parts.")
 		    (setq highest (1- (string-to-number (car uidnext)))))
 		  (cond
 		   ((null highest)
-		    (insert (format "%S 0 1 y\n" egroup)))
+                (insert (format "%S 0 1 y\n" group)))
 		   ((zerop exists)
 		    ;; Empty group.
-		    (insert (format "%S %d %d y\n" egroup
+                (insert (format "%S %d %d y\n" group
 				    highest (1+ highest))))
 		   (t
 		    ;; Return the widest possible range.
-		    (insert (format "%S %d 1 y\n" egroup
+                (insert (format "%S %d 1 y\n" group
 				    (or highest exists)))))))))
-	  t)))))
+      t)))
 
 (deffoo nnimap-request-newgroups (date &optional server)
   (when (nnimap-possibly-change-group nil server)
@@ -1683,7 +1670,11 @@ textual parts.")
 				  (cdr (assoc "SEARCH" (cdr result))))))
            nil t))))))
 
-(defun nnimap-possibly-change-group (group server &optional no-reconnect)
+(defun nnimap-possibly-change-group (group server &optional no-reconnect read-only)
+  "Possibly change group to GROUP.
+If SERVER is set, check that server is connected, otherwise retry
+to reconnect, unless NO-RECONNECT is set to t.
+if READ-ONLY is set, send EXAMINE rather than SELECT to the server."
   (let ((open-result t))
     (when (and server
 	       (not (nnimap-server-opened server)))
@@ -1697,7 +1688,11 @@ textual parts.")
       (with-current-buffer (nnimap-buffer)
 	(if (equal group (nnimap-group nnimap-object))
 	    t
-	  (let ((result (nnimap-command "SELECT %S" (utf7-encode group t))))
+	  (let ((result (nnimap-command "%s %S"
+                                        (if read-only
+                                            "EXAMINE"
+                                          "SELECT")
+                                        (utf7-encode group t))))
 	    (when (car result)
 	      (setf (nnimap-group nnimap-object) group
 		    (nnimap-select-result nnimap-object) result)

-----------------------------------------------------------------------
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 |    5 +++
 lisp/nnimap.el |   85 ++++++++++++++++++++++++++-----------------------------
 2 files changed, 45 insertions(+), 45 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