(nnimap-send-command): Mark the command time for each command, so that we don't get...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d1ec1d..68a3140 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-send-command): Mark the command time for each
+       command, so that we don't get NOOPs stepping on our toes.
+
        * gnus-art.el (article-date-ut): Get the date from the Date header on
        `t'.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index be3f812..b612539 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1565,6 +1565,7 @@ textual parts.")
 (defvar nnimap-sequence 0)
 
 (defun nnimap-send-command (&rest args)
+  (setf (nnimap-last-command-time nnimap-object) (current-time))
   (process-send-string
    (get-buffer-process (current-buffer))
    (nnimap-log-command
@@ -1588,7 +1589,6 @@ textual parts.")
 
 (defun nnimap-command (&rest args)
   (erase-buffer)
-  (setf (nnimap-last-command-time nnimap-object) (current-time))
   (let* ((sequence (apply #'nnimap-send-command args))
         (response (nnimap-get-response sequence)))
     (if (equal (caar response) "OK")